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ABSTRACT 


This thesis demonstrates the viability of implementing 
a local area network connecting a star cluster of Z-100 
personal computers to an ETHERNET local area network and 
allowing access to a wide area network, ARPANET, through a 
host on ETHERNET, one VAX 11-780 minicomputer operating 
under UNIX. The system allows local file and message 
transfer in port-to-port and broadcast mode between Z-100's 
on the star network and remote login and file transfer to 
computers that are hosts on ETHERNET or are accessible 
through ARPANET. The microcomputers in the cluster can 
share expensive resources such as laser printers, the 
Gemini multi-level secure system, the ETHERNET medium, and 
the network control processor. 

Components of the system are programmed in the 
Janus/Ada programming language for both the 2Z-100 


microcomputers and the Intel 86/12A single board computer. 
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A. BACKGROUND 

The AEGIS weapon system is critically dependent on 
electronic communication between computer systems. 
Microprocessors are clustered in a star configuration and 
connected to other clusters with ETHERNET. These networks 
are interconnected to other networks to form large 
communication and processing systems. Software development 
and resource availability are areas of research within the 
AEGIS development project. 

A testbed for research in this area is a MULTIBUS 
computer configuration comprising multiple single board 
computers connected to a minicomputer over an ETHERNET 
Local Area Network. This testbed proved suitable to develop 
a prototype local area network connecting a cluster of 
microcomputers to a minicomputer across ETHERNET using a 
Single board computer as a concentrator. Figure 1.1 
graphically depicts the configuration. Implementation of 
this LAN allows sharing of expensive resources by clustered 
processors and allows software development to be 
distributed across the cluster. 

A large volume of previous research applies directly 
mee this thesis. The research conducted to allow 


programming and testing on the single board computer within 
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the multiuser system and the working programs that allow 
interface with ETHERNET provided the foundation for our 
work. This thesis is a direct follow on to the thesis done 
by Lt. Col. Don Reeke, USMC, [Ref. 1]. His research 
provided some background in TCP/IP protocols and included a 
program written in PL/I which provided a capability to 
monitor communications on ETHERNET. Another program was 
able to mimic TCP/IP protocols and navigate the layers of 
protocol to initiate communication with a foreign site over 
ETHERNET. This thesis extends that navigation to allow 
Fegin, logout, and file transfer with a remote site over 
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Di ProgkClL DESCRIPTION 
1. Proposed Capabilities 
a. Local File Transfer 
The ‘'star' network configuration allows 
efficient single or multiple file transfer. Any two micro- 
computers in the cluster should be able to transfer files 
in either direction asynchronously. Additionally, any 
micro-computer should be able to transfer files to multiple 
computers at the same time. This feature should prove 
particularly useful to instructors and system maintenance 
personnel. 
b. Operations via ETHERNET 
The concept employed is to allow a user of a 


microcomputer on the cluster to act as a remote terminal to 


aise 


any of the computers On ETHER ME A user may enter a 
process that allows him or her to transfer files to or from 
any computer on ETHERNET. The user may also login to a 
remote host and perform any functions available to a 
terminal directly connected to that system. A user 
desiring to retrieve files from a system on ARPANET may use 
the remote login capabilities to connect to the remote 
system, trigger the file transfer system on the remote 
system to retrieve a file from ARPANET, then transfer the 
file to the microcomputer using the ETHERNET transfer 
process. 
oe Telecommunication Layers 

noe a detailed presentation of network layers is 
presented in [(Ref. 2], some general comments are 
appropriate here. This thesis required attention to six of 
the seven ISO standard layers. These six are the physical, 
data link, network, transport, presentation, and 
application layers. The physical layer is the ETHERNET 
interface board, the data link, network, and transport 
layers are handled by TCP/IP, the presentation layer is 
FTP/TELNET, and the application layer is programmed on the 
microcomputers. TCP/IP is the protocol accepted by tie 
target mainframe computer and is also an ARPANET standard. 
A more detailed summary of the network layers is contained 


in Chapeer. Er. 


ie2 


on Target Hardware 

The proposed local area network consists of up to 
twenty microcomputers, the ETHERNET cable and its 
interface processor, a mainframe computer, and a single 
board computer with multiple RS-232 ports accessed via 
MULTIBUS. 

Much of this thesis is dedicated to writing 
software for the computers involved. The single board 
computer will operate in total on software created for this 
thesis. All of the application level software for the 
microcomputers was written by the authors. The primary 
task has been producing the software to match the protocols 


presented by ETHERNET, TCP/IP, and FTP. 


Ce: SeRUCnUKE OF THIS THESIS 

At the heart of this thesis is the code to allow 
implementation of the network. The text provided is 
intended to convey the purpose behind design decisions, 
explain problems encountered, facilitate maintenance 
programming, and explain operating procedures. Chapter II 
contains descriptions of specific network characteristics 
and hardware/software that apply to the system. Chapters 


III, IV, and V are descriptions of the major subsystems of 


the project: remote log in, remote file transfer, and 
iteecal file transfer. Chapter VI is a summary of the 
network implementation strategies and procedures. Our 


appendices include a users manual for the Z-100 software, a 
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program maintenance manual for all original software, a 
glossary of acronyms and terms, a bibliography, and helpful 


figures and charts. 
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-II. NETWORK CHARACTERISTICS 


A. GENERAL DISCUSSION 

Networking has evolved over the years to include large, 
worldwide, real-time systems that share resources under 
many services. The Defense Data Network is one such system 
that is central to our discussion. 

Defense Data Network (DDN) is a powerful operational 
military network composed of several large subnetworks 
including MILNET and ARPANET. Originally ARPANET was one 
large subnetwork which has split into the present two 
subnetworks. ARPANET is primarily for experimental research 
and development while MILNET has become more of a semi- 
fixed, operational network utilized by many activities. 
These networks allow easy and quick communication between 
users hundreds and thousands of miles apart, round table 
discussions with several users, information sharing, 
passing programs and tools to enhance local capabilities, 
remote login to host computers and electronic mail. The 
three major services of the network are electronic mail, 
file transfer and remote login [Ref. 3]. 

The most used service on the DDN is electronic mail 
service (Ref. 3]. A system has been implemented which 
allows users to send messages electronically to one 


another. The system stores the messages that come in for a 


igs 


user until he or she has time to read and act on then. 
Mail can be printed, read, deleted and replied to with 
little effort. To send mail to another user, one simply 
specifies their network mailbox, usually of the form: 
USERNAME@HOSTNAME. Most hosts implement some form of mail 
handling capability. 

File Transfer Protocol (FTP) is another service on DDN 
which allows moving a file from one computer to another. 
The enhanced features of FTP allow conversion from one file 
storage format to another. 

TELNET is a protocol used to log in to a remote host 
from a local host. Once logged in, users are able to use a 
remote host as if they are using a terminal directly 
connected to that remote host. Files can be accessed, data 
entered and programs run from a remote location. TELNET 
maintains three basic principles: 

1. Each terminal is made to appear as a virtual terminal 
(le. all terminals appear to be the same to the 
hosts). 


2. Options must allow more sophisticated terminals to 
use their built-in functions. 


3. Rules are implemented to prevent infinite loops of 
acknowledgements sent back and forth. 


The Network Information Center provides services to 
users of the network. Among the services are: 


1. A program named WHOIS/NICNAME, that looks up 
information in an electronic listing of networn 
users. This service is much the same as "white pages" 
in a phone directory. A local host program queries 
the NIC database for information on users of the 
network. Searches are made by name, partial name, 
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handle (in case of multiple "hits"), hostname, TAC, 
and Node name; 


2, NIC/QUERY is a browsing system to access the general 
information stored by the DDN. 


3. TACNEWS offers help to TAC users. 


B. CONCEPTS 

The DDN uses Packet Switch Node (PSN) computers which 
pass information in packets to a destination. The packet 
contains ror at on Suen as destination node, source node, 
and other information that is explained in more detail in 
Chapters III, IV and Appendices A and B. The packets are 
sent out to the destination without a predetermined, 
dedicated path. Circuit switched networks, on the other 
hand, create a dedicated path to the destination which is 
used from the first packet to the last or end of 
connection. In packet switched systems a packet that was 
sent may reach the destination before an earlier packet. 
Information must be contained in the packet to put the 
packets back together in the correct order. Packets are 
also broken up into smaller packets if neccessary for 
transmission to hosts with smaller size packet capability. 

What previously was termed an Interface Message 
Processor (IMP) has been replaced with PSN (name only) as 
discussed above. The PSN's are the backbone of DDN 
providing the hosts connected to them the necessary network 
interface. Packets are assembled ina host and sent toa 


PSN which passes it on through the network. Since networks 
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do not universally guarantee that all packets will actually 
arrive at the destination, a reply packet is used to 
acknowledge receipt of packets. Timeouts are used to 
retransmit packets not acknowledged. 

Figure 2.1 depicts a typical network structure. A 
terminal may be connected to a host directly, through a 
telephone connection (using a modem), through a local area 
network (LAN) or yaa TAG: The hosts, in turn, are 
connected to a PSN which are in the wide area network. A 
gateway can then connect one network to another. In order 
to ensure that connections can be made across networks, a 
coordinating agency must oversee the use of destination 
addresses and host names. The Defense Communications 
Agency coordinates network usage much like the FCC oversees 
the use of the airways by broadcast stations. An address 
of a host would include the network number, PSN number, and 
host port number on PSN. The network number for MILNET is 
26 and for ARPANET is 10. A sample host name is shown in 
Figure 2.2. 

Personal computers (PCs) can be used to access the 
network. At the present PCs are used only as terminals to 
a host connected via the various ways mentioned previously. 
The DDN Project Management Office is studying various means 
of connecting PCs to the network, including allowing them 


host status. Eventually, as the capability of PCs 
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increases, they will be able to implement the network 


protocols and will attach directly to a PSN. 


C. PROTOCOLS 

To implement a network system such as DDN, standard 
protocols have been adopted. The Transmission Control 
Protocol (TCP) and INTERNET Protocol (IP) are standard 
protocols initially implemented for the Defense Data 
Network in the early 1970's. The TCP is designed to be a 
highly reliable host-to-host protocol in a packet switched 
communications network. An in-depth description of these 
protocols is contained in the SRI handbook [Ref. 2]. The 
IP is designed to allow packet transfers across different 
networks through "gateways," with fragmentation and 
reassembly occurring as needed. These protocols have been 
implemented on many different systems using various 
languages and under several operating systems. Much of the 
background research for this thesis was to understand these 


two protocols. Therefore, a brief discussion is now 
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provided to help explain the system requirements that have 
been implemented. 

Transmission Control Protocol is designed to provide 
robustness in the presence of communication unreliability 
for military computer networks. TCP is a standard 
interprocess communication protocol which can support a 
broad range of applications. It is declared to be the 
basis for all DoD-wide inter-process communications. TCP 
is a connection-oriented, end-to-end protocol to fit into a 
layered hierarchy of protocols which support multi-network 
applications. It assumes that the layers below it are 
potentially unreliable datagram protocols. TCP can be used 
in hard-wired connections, packet-switched or circuit- 
switched implementations. 

TCP interfaces with the upper layer user or application 
processes and lower level protocols (eg. INTERNET 
Protocol). TCP has the ability to transfer a continuous 
stream of octets in each direction. To ensure that data is 
not stored at an intermediate location awaiting more data, 
a "push" control is employed to send the data through to 
the destination. The network protocol underneath TCP is 
assumed unreliable, therefore, data objects that are 
damaged, lost, duplicated, or delivered out of order must 
be corrected. Each byte of information iS assigned a 
sequence number, requiring a positive "acknowledgment" sent 


from the receiver. Damaged packets are identified by two 
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checksum fields. A means of controlling how much data is 
sent by a sender in any one packet is available to the 
receivers. The maximum amount to be sent is governed by a 
"window" field describing the maximum a potential receiver 
is willing to accept. Since only one copy of TCP is 
normally stored and many users may need its service, a 
method of multiplexing many processes in a single host is 
achieved by use of addresses or ports within each host. 
Concatenation of port addresses and the host addresses 
enable identification of the destination by this socalled 
"socket." Since local sockets may be used by several 
foreign processes at the same time, a pair of "sockets" 
identify a connection. Consider, for example, a remote 
Login) from sa foreign nose. A "well-known" socket for 
remote logins is 0017 hex. If two different foreign users 
desired to do a remote login at the same time, the local 
socket for both would be the same (local host address and 
the well-known TCP socket address). The distinction 
between the two connections is made by inspection of the 
foreign socket. Since the connections are by two different 
hosts, the host addresses will be different. If two users 
from the same foreign host wanted to do a remote login, the 
separate connections can also be distinguished by the 
distinct port number assigned to them by the foreign host. 


A host cannot assign the same port number to two different 
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processes. TCP also allows users to indicate the security 
level and precedence relation of their communications. 

INTERNET Protocol is the layer below TCP and interfaces 
with the drivers of the physical network. It allows the 
TCP to send and receive variable-length packets of 
information enclosed in INTERNET datagram "envelopes". 
Inter-network communication 1s provided by the addressing 
employed in the IP envelope. IP also handles fragmentation 
and reassembly of packets. For example, if a datagram 
arrives containing 2K bytes of information and must be sent 
over a network that can only handle 1.5K in one packet, 
then the IP will fragment the datagram into two datagrams 
and provide necessary information to reassemble them at a 
later point. 

Pocitication processes rely on TCP and pass to TCP a 
buffer containing data to be sent to the other process on 
the connection. TCP serializes the data with sequence 
numbers, checksums, etc., and sends the packet to the IP. 
The IP, in turn, determines the proper route for the packet 
to take across the network by the addresses listed in its 
header. It also fragments the packet or combines several 
fragments as necessary to comply with the requirements of 
the route the Bae et is taking. 

A User Datagram protocol is used to send messages to 
other programs with a minimum of protocol mechanism. The 


protocol is used above IP and is transaction oriented. It 
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does not guarantee protection against duplicate packets 
being sent. Format of User Datagram Protocol is shown in 


Pea cil es a3 


0 Picts} ibey 1 23 24 31 
+—------- +-------- +—------- +——-—----— + 
| source | destination | 
| Deine | Deore 
+—-------- +——------- +—------- +—-------- - 
| | | 
| length | checksum | 
+—-------- +-------- +—-—------- +—-------- + 
| 

| data bytes... 

+ Sa ee a a a me at a © @# @ 


Figure 2.3 User Datagram Header Format 


D. NETWORK HARDWARE 

To implement a network system, the hardware used to 
construct the network must be understood. The C€Cita 
(Consultative Committee for International Telegraph And 
Telephone) specification X.21 is a standard for connecting 
terminals and networks, a general purpose interface for 
synchronous operations on public data networks. The X.21 
(15 pin connectors) interface applies to the first level of 
the ISO model and is served by other interface standards 
such as RS232C (25 pin connectors). 

The CCITT specifies an X.25 standard interface protocol 
for a Data Terminal Equipment (DTE) to attach to a packet- 


Switch network using Data Circuit-terminating Equipment 
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Cher). The interface between the DTE and the DCE is 
described in [Ref. 4}. 

The Electronic Industries Association standard RS-232 
was originally developed to Powter data communications on 
public telephone networks with use of a modem (modulator- 
demodulator). Since development in the mid-60s, the RS-232 
has been used to directly connect terminals to computers 
without use of the phone lines and modems (except for truly 
remote connections). Figure 2.4 shows the RS-232 interface 


with communications equipment. 


terminal or computer| | modem or other equip 
| 
ring indicater|<--22 22<--|ring indicator 
data term ready|-->20 20-->|data terminal ready 
carrier detect|<--8 8<--|carrier detect 
|-7signal-gnd7-| 
data set ready|<--6 6<--|data set ready 
clr to send|<--5 5<-—|clr to send 
req to send|-->4 4-->|req to send 
receive |-->2 2-->|receive 
transmit]-->2 2-->|transmit 
yi haat a 1 | 
so entea entertainer tentetentetetenee Shield gnd ----r--99--9 2224-2 ----- 
Figure 2.4 RS-232 Pin Connections 


An ETHERNET network is a local area network (LAN) that 
1S capable of transferring data at 10 megabits / second 
over a 2500 meter coax cable. The ETHERNET cable and the 
associated transceivers that connect to it make up the 


physical layer of the ISO model fora network. 
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Interlan's MULTIBUS ETHERNET communications controller 
board (NI3010) is a single computer board that provides a 
host with a connection to an ETHERNET network. It complies 
fully with the Xerox/Intel/Digital ETHERNET specification, 
version 1.0. Figure 2.5 depicts the controller boaxmae 


implementation. 


MULTIBUS ETHERNET | 
| 
controller | 

| 


| 
| 
| 
| communication 
| 
| 
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Figure 2.5 MULTIBUS/ETHERNET Connection 


Some of the NI3010 Board modes: 


1. Go offline - Logically disconnects the board's 
transmitter and receiver from the network. 


2. Go online - Logically connects the board's 
transmitter and receiver to the network. 


3. Run Onboard Diagnostics - Executes an onboard 
diagnostic program. Figure 2.6 lists the diagnostic 
SuUCpUES. 
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field number of bytes 
ie tL 2 


2. frame length 2 
3. physical address 6 
4. number of frames received Z 
5. number of frames in receive FIFO Z 
6. number of frames transmitted 2 
7. mumber of excess collisions 2 
8. mumber of collision fragments 2 
9. number of times 1 or more lost z 
10. number of multicast frames accepted 2 
11. number of multicast frames rejected 2 
12. number received with CRC error 2 
13. number received with alignment err 2 
4. number of .collisions 2 
15. number of out-of-window collisions 2 
16. reserved for future use 16 
17. module ID 6 
Igsve null Al 
19. firmware ID 6 
ZO wenul) 1 
Ragubte 2.6 ETHERNET Report/Reset Format 


4. Load Transmit Data and Send - Informs the board that 
it now has a block of transmit data and commands it 
EOeEraANSMAc 1: 

5. Reset - Goes to power-up state. 

6. Insert Source Address Mode - Causes the board to 
insert its own physical address into the source field 
of the ETHERNET frame. 

ETHERNET physical addresses are 6 bytes in length. The 
first 3 bytes are assigned by Xerox and the last 3 are 
assigned by the manufacturer of the ETHERNET board. The 
ETHERNET frame format is shown in Figure 2.7. 

Programming requirements of the NI3010 board given by 
the manufacturer fall in 4 categories: 


1. Handling an interrupt by the NI3010. 


2. Issuing an NI3010 command 
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---frame lengen 


Figure 2.7 


Receive Data Block 
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in MULTIBUS Memory 


Se fFransmitting data to the ETHERNET 
4. Receiving a status block from the NI3010 

There are 7 kinds of interrupts possible, only 3 are 
discussed: receive-block-available, receive-DMA-done and 
transmit-DMA-done. Interrupts are enabled by writing to 
the interrupt enable register with the proper interrupt 
code. The state of the interrupt processor, identified by 
the type of the last interrupt received, is recorded ina 
variable since the interrupt enable register is write only. 
Interrupts must be disabled prior to handling the interrupt 
enable register because an interrupt may occur at any time. 
After a command is issued to the NI3010, the status 
register must be read. The NI3010 documentation contains 
code specification for interrupt handling is shown in 
prgure - 2.8. 

A command is issued to the NI3010 by writing to the 
command register, then waiting until the interrupt status 
register shows that the status register is full (SRF bit = 
1). The status register is then read. 

The data to be transmitted by the NI3010 is transferred 
to it then a command to transmit the data is issued. The 
host must first allow the NI3010 to finish any DMA in 
progress before trying to transfer data to it. The code 
listed in Figure 2.9 details the manufacturer's algorithm 


to transmit data. 


E58) 


disable CPU interrupts 
get currence LE REG coneencs 
sec Th REGrreono 


if IE REG was a 4 then 
load bus address registers 
load byte count registers 
SEG iio REG com, 

end if 


wake up receive packet process 
give it this packet 
set IE REG to 4 

end else 


else if IE REG was a 6 


set IE REG to 4 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| else if IE REG was a 7 
| 
| 
| 
| 
| 
| 
| 
| end else 
| 
| 


enable CPU interrupts 


Figure 2.8 Ethernet Interrupt Handler Code 
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disable CPU interrupts 
while IE REG is not a 0 or 4 do 
enable CPU interrupts 
repeat 
Be ace Ere 
Wii Pe OREGe ts easO or a 4 
disable CPU interrupts 
Beads Eh eRe 
end while 
set IE REG to 0 
enable CPU interrupts 
load bus address registers 
load byte count registers 
disable CPU interrupts 
Set lhe eG ee 6 
enable CPU interrupts 
if IE REG is a 6 then 
wait until it is not a 6 
end if 
issue a load-transmit-data-and-send command 


Figure 2.9 Transmitting Data to ETHERNET 


After issuing a command for status, the host reads the 
interrupt status register (IS-REG) until the status-block- 
movateable (SBA/) bit is high, indicating that no more 
status information is available. The status register is 
read when the SRF indicates the status register is full. 
Figure 2.10 lists the algorithm. 

The 86/12A single board computer is a complete computer 
system on a Single printed-circuit board. It includes a 16 


bit 8086 CPU. 32K expandable to 64K bytes of dynamic RAM, 


ok 


| repeat | 
| Bead Piom nes | 
| if SRF is 1 then | 
| read s REG | 
| end if | 
| until SBA/ is 1 | 


Figure 2.10 Receiving a Status Block 


a serial soatunscactione interface, three programmable 
parallel I/O ports, programmable timers, priority interrupt 
control, MULTIBUS interface control logic, bus expansion 
drivers for interface with other MULTIBUS interface- 
compatible expansion boards, and up to 16K bytes of ROM. 

Of primary importance is the I/O addressing assignments 
for the iSBC86/12A. Table 2.1 lists the possible port 
assignments. 

The Zenith Z-100 computer is a dual processor 8085/8088 
unit with several on-board hardware capabilities. Some of 


the hardware features include: 


model number description 


8259A Programmable interrupt controller 
68A21 Peripheral interface adapter 
2661 Enhanced programmable 


communications interface 


8253 Programmable interval timer 


By 


The Z-100 has two serial ports (J1 and J2), both of 


which are connected through the 2661 communications 


interface. 


port is the primary modem port. 


Or 


or 


or 


or 


Jl is the primary printer port while the J2 


TABLE 2.1 


86/12A IO ASSIGNMENTS 


I/O address LE 


OOCcO 8259A 
00C4 Pare 
Programmable 
00C2 Interrupt 
O0C6 Controller 
00C8& 
8255A 
OOCA PPI 
HOCE Programmable 
Peripheral 
OOCF Interface 
OODO | 
8253 
OOD2 PIT 
OOD4 Programmable 
Interval 
OOD6 Timer 
=ei8)- 
OODC 8251A 
OODA USART 
OODE 


Punee ron 
Wrlce: «evil, OCW2,  £ OCWS 
Read: status and poll 


write: ICW2,ICW3,IcWw4,OCW1 
read: OCW1 (mask) 

write: port A (jl) 

read: port A (jl) 

WEItes pert. Bb (71) 

read: port B (jl) 

Writes pOre eC (7) 1) 
read:port C(jl1) or status 
Woitce:s Control 

read: none 
write:counter0O(load cnt/N) 
read: counter 0 
write:counterl(load cnt/N) 
read: counter 1 
write:counter2 (load cnt/N) 
read: counter 2 

write: control 

read: none 

write: data (j2) 

read: data (j2) 

write: mode or command 
read: status 


The 8538 8 Channel Communication Expansion Board isa 


fully programmable synchronous or asynchronous serial 


communication channel with RS232C interfaces. 


The 8533 


contains 1IC2651 USARTs for serial communications with other 
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devices. The 8538 is compatible with the MULTIBUS system. 
The board's addressing registers in each USART are 
optionally addressed as memory mapped locations or port 
addresses. There are 4 locations for each USART that we 
may be concerned about, the data register, the status 
register, the mode register and the command register. 
These memory locations are 0-3 respectively for port 0, 4-7 
for port 1, etc. These address locations are added to a 
base address that is selectable by DIP switches on board 
the 8538. The total address space given to one board is 
64, therefore, a second board would start at 40 hex if 
consecutive address locations are desired and the first 
board started at address 0. The four register addresses 
for each USART extends only to 20 hex, however, the 
remaining port addresses are given to interrupt handling, 
which is not used in the implementation of the system. The 


port addressing is shown in Table 2.2. 
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TABLE 2.2 


USART ADDRESSING 


address (hex) Flume t Lom 

O=3 r/w data, status,sync/sync2/dle, mode, cmd 
_= u tt i t 

Be 1 tt 1 tf 

C-F Ul tw tt tf 
10-13 tt tt tt tf 
14-17 tf tf tt 
18-1LB tt W tt 
1C-1F t tt tf tf 

20,28,30,38 port reset register (write only) 

eee, 31, 39 n/a 

B2,2A,32,3A transmit interrupt register 

Peres, 33,35 transmit interrupt requests 

Zoe, 34,3C transmit interrupt mask 

Pen 2D,35,3D transmit interrupt requests 

Hon2h,36,3E ring detects ; 

eect’ ,3/7,3F nfa 


i is 


III. PROTOCOLS FOR REMOLEVECer. 


The Protocol used for a remote login into the VAX- 
11/780 Unix system is that of TELNET described in [Ref. 2]. 
Lower level protocols use TCP/IP and ETHERNET for the 
transportation, physical, data link, and network levels of 
the ISO model. TELNET is a host to host communicatiom 
protocol to allow a user to login onto a remote computer 
after first logging in on another, perhaps local computer. 
Once logged in to the remote host, a user can then enter 
data, run programs or do any operation that is allowed had 
he logged in directly. A typical remote login sequence is 
PRet. oe 

ls Login to an angeral> hese 
2. iInvoKe the TELNET prodram oneehae host 


3. Identify the remote host you wish to access by host 
name or host address. 


4. Once connected to the remote host, login with 
username and password for that host. 

5. When finished working on the remote host, logout, 
then break the connection (if not done so by logging 
Out) Return to the initial host for further 
processing. 


A specialized use of TELNET is to connect to a 
particular well-Known socket (assigned port) on a remote 
host. A connection such as this takes a user to the 
program or service offered on that socket. For example, to 
perform a remote login, socket number 23 is used. 23 is 
the well-known socket for such service. To transfer files 


between hosts, the well-kKnown socket of 21 1S used. To 
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make the connection to the host, the complete address or 
socket is used, which consists of the host's INTERNET 
address as well as the TCP address or well-kKnown socket. 
An example of a socket is the well-known socket used by the 
Vax Unix of IP address of C009C803 hex and TCP address of 
0017 hex. 

On a more detailed level, to initiate a connection toa 
remote host, the Looe host performs what is termed a 
three-way handshake. To do the handshake, the initiator 
sends a packet to the remote host with a control code of 
'syn' (synchronize). The remote host should recognize the 
'syn' and issue an ‘acknowledgement! and 'syn' together. 
These signals are simply a single bit set ina 6 bit 
control code (see Figure 3.1 for protocol details). Once 
the 'syn_ack' is received, the initiator sends an 
acknowledgement, completing the three-way handshake. When 
the handshake is complete, the state of the connection on 
each host is 'established'. This is when the user can use 
the remote host as if he were directly connected to it. [In 
a typical connection, each character that the user enters 
at his/her terminal is sent in a packet to the remote host. 
The remote host will process that character and optionally 
send or not send it back to the user's terminal. Most 
entries are returned; however, passwords and such are not. 
Every entry, therefore, is sent individually, wrapped in 


the TCP/IP protocol as well as the physical network 


7) 


protocol (ETHERNET protocol). An attempt was made in our 
implementation to send more than one character at a time, 
however, the BSD 4.2 Unix system did not recognize more 


than one character. 


0 1 eo 3 
0o123456789012345' 67892 OO 1 23 4 «5 6 7a eee 
taep et aHtaHt—t et et et Ht et etapa tate tatatataetaetaetatet ttt +4 —-4+-4+-4-4+ 
|Version| IHL |Type of Service| Total Length | 
faetaeta—t—t—ta—t tat ete pete t etait ae tate t eta t atta t ite t tet t—t t+ —+-4—4+ 
| Identification |Flags| Fragment Offset | 
taeta—t—t—taHt ett at apap etapa tp apatite taetaet etapa taeteteteti—t—p—t—t—t a+ 
| Time to Live | Protocol | Header Checksum | 
taetat amt amt a—t ett et et et et apap etait at et et et et et at etait tet tet et—tetat 
| Source Address | 
taetmpa—tatataetat ap etapa tat ata etapa taet att at ett a—tep ett —t—4+—-4+—-4=4+ 
| Destination Address | 
tat aetat at mtpaetpatat etapa paetaetpaet etapa t etapa taetaetaetaetaetaetaeta—taeta—t—+—4+ 


| Options | Padding | 
faepaepet at at mt mt ete tet ete pet aet et ete pete tet tae trtet ett att tt 4+ 
| Source Port | Destination Port | 


fmt mt mpm paetaet eta tpetet eta te paetetaet etapa tae tetet et etait tet et pet + 
| Sequence Number | 
tate paet—ta—tat Ht ete tpet at mp ape pae tap aetpatp ep e topo tpaetetetete—t—t—t—t—t+=4+ 
| Acknowledgment Number | 
tat ape pepe tampa petaet etapa tpaetetaet etapa taetpetet ete tpetetetit et et—t tat 
| Data | |U|A|P|RIS|F| | 
| Offset| Reserved |R|C/]S|S|Y|TI| Window | 
| | |G|K|H|T|N|N| | 
tap —paepetaetaHpaepaet Http aHt etapa tet aetaet etapa pet ett ttt -4+-+ 4-4-4 4+ 
| Checksum | Urgent Pointer | 
$m tatapapaetaet etapa taetaetaet ete peta tate tet eta tat at at $$$ $$ - $$ + 
| Options | Padding | 
tap mt eta taHetaet et et etait et aet etapa t ete t etapa tet ete t pet etet—t—t—t+—4—4+ 
| data | 
tmp aepaepetetaetH— fete tet tpetp et et et et et at ete petite t ete ptt 4-4-4 -4 4+ 


Figure 3.1 TCP/IP protocol headers 
When completing a remote login session, the user logs 


out from the remote computer, which also causes the remote 


computer to signal termination of the connection to the 
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originating host. Once the connection has been terminated 
by transversing the intermediate states [Ref. 2], the user 
is returned to the environment of the local host. 

| TELNET is a very simple protocol above the TCP level. 
Once ‘'established' the local host simply sends the 
characters entered at the keyboard to the remote host by 
passing them down to the TCP level. Any data returned from 


the remote host is displayed on the user's terminal. 


oY 


IV. FILE TRANSFER PROU@GecE 


AS INTRODUCTION 
1. FTP PURPOSE 

File Transfer Protocol or FTP is a well documented 
software protocol for transferring information between 
computers within a network. The specifications for FTP are 
contained in the INTERNET Protocol Transition Workbook 
URG@ie ce Ree=7 oo |. 

This implementation of FTP is used to effect file 
transfer and related operations between computers on the 
NPS LAN. This process does not allow exchange between Z- 
1000's, but only between a 2-100 and one of the 
minicomputers on ETHERNET. The NPS LAN is not directly 
connected to any external network such as ARPANET, so file 
transfer beyond the local network can only be accomplished 
by logging in to a computer on the local network that has 
external access, in this case the VAX 11-780 operating 
under UNIX. Once logged in, the user may utilize the 
version of FTP implemented under UNIX to access computers 
on the ARPANET and on other networks. 

The FTP implementation for this thesis did not 
require all the features described in the FTP 
documentation. The goal here is to allow only active data 


transfers to remote sites, meaning no computer can initiate 
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a data transfer to a Z-100. This eliminates the need for 
an FTP server process to handle incoming requests toa Z- 
100. Additionally, the mail passing facilities of FTP were 
not programmed. A user of this FTP system may request 
transfer of a file to or from the remote computer, list the 
directory on the remote computer, change the working 
directory on the remote computer, ask for help, or 
terminate the process. The specific FTP commands, replies, 
and parameters that are included in this implementation are 
described in the Program Maintenance Manual [Appendix B]. 
2. FTP Description 

FTP operates using two connections to effect 
information transfer. A command connection is initiated by 
the FTP requestor to begin the FTP process. This 
connection is used to send control information between the 
two sites before data is transferred. The requestor, or 
user, sends FTP commands to the remote host, or server. The 
commands request the desired mode, file type, data 
connection address, or service required, or reset or abort 
the connection. The server returns FTP replies which 
either acknowledge or decline the parameters or requests. 
The discourse continues until agreement on acceptable 
parameters is reached. When a data connection is required, 
the server process initiates a TELNET connection to the 
using site. When the data transfer (which includes a 


request for a directory listing) is triggered by the 
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requesting site, the data is transferred over the data 
connection. The data connection is closed at the 
conclusion of each file transfer to indicate that all data 
has been sent. The data connection then must be 
reinitiated if another transfer is desired. A typical 


command/reply sequence is provided in Figure 4.1. 


KEKEKKEKREKEKRKERRRRRERRRRRKEREKEERRRERRERRRERRRERRRRRRRRREREE 


* USER TO SERVER | SERVER TO USER * 
Je | * 
* EST CMD CONNECTION | REPLY: 220 READY FOR SERVICE * 
* | * 
* CMD: USER <USERNAME> | REPLY: 331 NEED PASSWORD * 
* | ie 
* CMD: PASS <PASSWORD> | REPLY: 230 USER OK * 
* | * 
* CMD: PORT <ADDRESS> | REPLY: 200 COMMAND OK: * 
* | * 
* CMD: NLST (LIST DIR) | REPLY: 150 OPENING DATA CONN * 
He | * 
* | SEND LIST * 
Je | * 
* | REPLY: 226 TRANSFER COMPLETE * 
* | CLOSING DATA CONNECTION * 
* | * 
* CMD: QUIT | REPLY: 221 CLOSING COMMAND * 
* | CONNECTION * 
* * 


RREERRRERREKERRRRRRRRRRRKRRKRRKRERRRRRRRRRRRRRRRRRRRRRRREEER 


Figure 4.1 FTP Command/Reply Sequence 


Be SYSTEM DESCRIPTION 
l. . Thess Concencracer 
The role of the concentrator is to route FTP 
commands replies, data, and to establish and maintain the 


command and data connections. When the concentrator polls 
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a port that is in the FTP state, there may be three types 
peelatormation to be transferred in either direction. The 
three types are: control characters, FTP commands and 
“replies, and data. 

Cone oll characters are used to pass coordinating 
information between the concentrator and a Z-100. Actions 
such as aborting the process and establishing a new 
connection are triggered by control codes. When a port 
operating under FTP is polled by the concentrator, the 
concentrator checks first to see if a control character is 
coming from the Z-100. 

Incoming data from the network is queued for the Z- 
100 by attaching-it to a pointer within the Port Control 
mmoeclk (PCB) entry for the connection. If the data 
connection is open, the concentrator checks for any packets 
received from the remote site queued for the Z-100 and 
sends any waiting data in its entirety. If no data is 
waiting from the remote site, the Z-100 is checked for data 
to transfer to the remote site. If data is waiting from 
the Z-100, a block is transferred to the remote host over 
the data connection. If the data connection is not open, 
bytes received from the Z-100 are presumed to be a command 
for the remote site and are transmitted to the remote site 
via the command connection. 

The concentrator acts only as a go-between for the 


Z-100's and the network. The concentrator makes no effort 
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to recognize FTP level information or generate data on its 
own. Its responsibility is to pass data, maintain the 
connections at the TCP level and coordinate with the Z-100 
concerning data origin. 

2. The Z-100 

The Z-100 maintains the dialogue with the remote 
FTP server process. The host-to-host FTP transfer utilizes 
separate virtual connections for control and data transfer 
so control information cannot be intermixed with data. The 
Z-100's do not have access to the two connections in the 
cluster configuration. Control and data must be passed 
over the same serial line connecting the concentrator and 
the Z-100. Clearly, additional means of communication 
between the concentrator and Z-100 must be implemented. 
This is done through the use of a header field implanted as 
the first byte in reply, command, and data transmission 
data streams. There is also a presumption of some degree 
of sequencing. For example, an FTP command can only be 
followed by an FTP reply. 

The structure of the Z-100 process closely 
resembles the structure of the FTP system. The 2Z2=-i10G 
process, termed the user process, is driven by the sequence 
of FTP commands and replies. The process is begun by 
initiating the FTP command connection which results in an 
FTP reply from the remote server process. This reply is 


captured and an appropriate command is sent to the remote 
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server. A reply to that command will ensue and the 
dialogue continues until the user or the server process 
terminate the dialogue and the process ends. 

The Z-100 is primarily concerned with maintaining 
the FTP dialogue. The FTP command/reply cycle is not 
perfectly one-to-one. Several peculiarities may be 
encountered. For instance, all commands sent to the server 
will trigger a reply, however, some commands will trigger 
more than one reply. Similarly, some, but not all, replies 
require a command be sent in response. For example, the 
reply '331' means that the user name is accepted and a 
password command is needed, while the reply '200' indicates 
that the previous commana was accepted but does not clearly 
suggest any further course of action. To further complicate 
the issue, many FTP replies are acceptable responses to 
several different FTP commands and the necessary action may 
be dependent upon which command was sent. The state of the 
process is identified by knowing the last reply and the 
last command. 

The peculiarities noted are handled in the 
procedure that processes replies. When a reply is received 
and conditions are right to receive another reply without 
sending a command, preliminary action is taken without a 
command being generated. When no action is indicated by 
the system, the user is prompted to select an option which 


triggers an FTP command. The system is designed to be 
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robust. Even if unexpected replies are received to a 
particular command, the system will continue to transfer 
data and converse with the remote site. | 
3. The Connection 

The connection between the Z-100 and the 
concentrator is a six wire line connected to the Z-100 
auxiliary port. The connection is an RS-232 standard and 
DTR/DSR handshaking, as described in [Ref. 2], is used to 
pass commands, replies and data. Control characters are 
passed under cleared DTR/DSR. Two specially coded 
subroutines handle all handshaking and perform actual data 
transfers. Due to speed considerations, data is passed 
only to and Peon memory in the Z-100 in blocks of not more 
than five hundred and twelve bytes. When a complete packet 
has been received, the data is either displayed on the 
screen as a directory list or delivered to the destination 


file. 


46 


V. LOCAL CONNECTIONS 


This chapter deals with the microcomputer-to- 
microcomputer connections used for transferring files, 
sending messages etc., within the Aegis star cluster 
network configuration. Since there was no requirement to 
interface the local connection system with any other 
systems, it provided the opportunity to implement a totally 
original scheme for networking. The following requirements 
were considered in our design phase: 


1. Files are to be transferred between two computers 
with error detection and correction. 


2. Files are to be transferred between one computer and 
two or more other computers with error detection. 


3. Files are to be transferred between any computer and 
the local printer. The printer is to be connected to 
the concentrator identical to the computers. 


4. Only one computer can transfer files to the printer 
at any given time (a non-sharable asset). 


To carry out the above requirements, a new protocol was 
developed similar to the ‘user datagram' described in 
Chapter II. A layout of the protocol is given in Figure 
eo. 1. 

Once a connection is established between two 
microcomputers, an application program running on one 
microcomputer simply sends data to the other by specifying 
the destination terminal in the first byte sent. The 


source, type, checksum and length fields are also 
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Potato tt a | ee 
l 
i 
+ 


Figure 5.1 Local Protocol Datagram Format 


available, however, are not required in sending data. The 
fields in the header allow enough flexibility in 
programming application programs to enable some level of 
sophistication. The packets sent from one micro can be 
broadcast to all other microcomputers connected in the same 
'group' by using FF hex in the destination field. A 
'group' connection is created in the concentrator when a 
terminal initially connects to anogene:, If the other 
terminal already has several terminals connected with it, 
the new terminal is simply inserted into the ‘group's 
terminal remains ina ‘'group' until 1) it terminates the 
local connection, 2) all other terminals in the ‘Grou 


terminate, or 3) the terminal performs a group transfer 
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(command 'Change group') to attach itself to another 
recoup’. 

To fully discuss the local connections, a discussion of 
the process running on the concentrator will be followed by 
a discussion of a sample application program that allows 
multiway transfers of files, directory listings and message 
exchanges, all somewhat concurrently. 

The concentrator executes a ‘local' process during 
microcomputer-to-microcomputer transfers. A microcomputer 
can invoke a local connection by sending a control code 
Beeae, Loc’ to Che concentrator. The concentrator returns 
that code and changes 'pcb.state' to 'loc_init.' The next 
byte expected by the concentrator from the microcomputer is 
the destination port address. Once the destination port 
address is received, the concentrator checks the state of 
the destination to verify that a connection can be made. 
If the connection can be made, the concentrator sends 
‘code estab' to the microcomputer. If the connection 
cannot be made, the 'pcb.state' is set to 'listen.' If the 
destination terminal was in state 'listen' then it too will 
be changed to 'local' and 'code estab' sent to it. If the 
destination state was already local, no code is sent to it. 
When the terminals are established in a local connection, 
their Port Control Blocks (PCB) are linked together with 
pointers. Any additional terminals that connect to one of 


these terminals are simply inserted in the linked chain of 
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PCB's. All PCB's linked together in this fashion and their 
respective terminals are considered to be ina 'group! 
connect ron. “There may be several '‘'group' connections 
existing at the same moment yet not associated with each 
other. 

In addition to the connection link (PCB field "ic6cieom 
is used in each PCB to do the linking) each PCB is linked 
in the 'poller' routine to enable polling of each terminal. 
There are, therefore two linked chains, one for local 
connections and one for polling all active terminals. The 
active terminals are using various processes such as TELNET 
or File Transfers to other hosts on the ETHERNET. The 
poller routine polls each PCB individually, calling the 
appropriate process to handle the particular state of the 
PCB: 

The method of transferring packets over a local 
connection is divided into three catagories: 

bs Direct microcomputer-to-micro computer 
2. Broadcast to all in the local connection 
3. Microcomputer-to-printer. 

The microcomputer-to-microcomputer communication is 
implemented by receiving a packet from a terminal and 
determining who to send it to by looking at the first byte 
(destination field). The first byte is overlayed in the 
window(1) byte of the memory block (see Appendix B). If 


the first byte is out of range for the number wea 
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destinations available (0..num_prts) then the packet is 
Giscarded. If, however, the destination is a valid port 
number and the destination state is 'local', then two tasks 
must be performed: 


1. Abit is set in the originating PCB to indicate who 
must receive that packet 


2. Abit is set in the destination PCB to indicate who 
has a packet to send to its terminal. 


On subsequent polls of these terminals, the local 
routine checks the originating PCB to see if the bit has 
been reset. If it has not, no new packet will be received 
(only one packet at a time). When polling the destination 
PCB, the bit that was set is found and an attempt is made 
to send the packet to the terminal. If successful, then 
both previously set bits are reset. This is the signal to 
the originator that the packet has been received. During 
the polling process, the bit reset in the originating PCB 
Will be detected and the packet discarded. A check can 
then be made of the terminal for another packet to be sent. 

The method of broadcasting packets is similar to the 
previous discussion on microcomputer-to-microcomputer 
transfers. A broadcast packet is one in which the 
destination field is FF hex. To effect a transfer to all 
terminals in the local connection, the local routine 
traverses the loc_con link and sets a bit in the PCB for 
each terminal as well as the appropriate bit in the PCB of 


the originator. As previously described, each terminal will 
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receive the packet because the correct bit wrlM/be ser an 
their PCB entry. When all terminals have received the 
packet, all bits in the originating PCB are reset. 

The transfer of packets to the printer is somewhat 
different in that only one byte is sent to the printer ata 
time rather than a block of data. A pointer and counter is 
maintained to keep track of where the next byte is in the 
memory block and how’many bytes are left. The setting and 
resetting of bits remain the same as above. An additional 
mechanism 1s used to keep track of the number of characters 
on a line so that a 'tab' code can be replaced by a series 
of spaces. 

The next discussion relates to the application program 
running on the microcomputer. A need was indicated for 
transferring files between two or more microcomputers, as 
well as for communication between users of the 
MLeGrocenputerns. An application program has been 
implemented that carries out these functions. The 
‘networking environment! that is designed in the program is 
menu driven. The main features include single stroke key 
entries for commands. A help feature is incorporated 
allowing the user to view available commands at any non- 
text-input point by entering '?'. The following commands 


are available: 


De 


a2 All Oper 1 ne 

26 Bell pe a Oui 

Sic Change group 12. Send 

4. Directory 13%. “Palik 

5. Get 14. Verbose 

Se Information 15. Who's there 
C.. ast 16. <destination> 
or: Mailbox te. bat 

9. Netstat Moe. Bae 


To send a message to a specific destination, the 
corresponding terminal number must appear in front of the 
screen prompt such rep 

14> 

The ee prompt indicates that anything sent will be 
sent to terminal number 14. The message could also go to 
all terminals on the connection with a prompt like this: 

all> 

A message is sent by entering a 't'(talk)-and typing 
out the message. Up to 512 bytes can be sent in one 
message. Typing more than 512 characters will cause the 
transfer of the first 512 characters followed by another 
message. All characters entered will be sent including 
Carriage returns, except cntl-Z, cntl-R, cntl-H, cntl-Q and 
delete. cCnt1-Z terminates input and sends the message. 
When the message is received by the destination 
microcomputer the the originator is identified by login 
name and/or terminal number and the message is displayed on 


the console. The output looks something like the following: 


a6: 


msg fr <name> Nr> 
<text of message here> 


While entering text of a message, all incomming messages 
are held until the text entry is completed. To review the 
contents of a message cntl-R is used. The only correction 
capability is back space (cntl1l-H) or delete followed by 
retyping the chee sceee A message can be cancelled before 
sending it by typing cntl-Q. 

moctsend a file to the destination, an 's' (send) is 


entered. A prompt is displayed asking for the file 


name(s). Entering the file names is exactly the same as 
entering text of a message. Up to 512 bytes can be 
entered. A comma must be between the file names. An 


example entry would be: 


Send <filename> enter text, *Z to send: 
b:test.com,a:command.com,e:*.* 


Once this entry is made it is parsed for each file 
entry. A search is conducted to find the £116(s) andes 
send them one at a time. Since the packets have a checksum 
value in the header, a receiving microcomputer can 
determine if the packet arrived without error. If the 
packet is not sent in a broadcast mode, the receiving — 
microcomputer will acknowledge receipt of the packet as 
either good or bad. The packet is sent again if it was 


received with errors. For broadcast packets mie 
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acknowledgement is sent. If a broadcast packet arrives 
with errors, then the file is closed and an appropriate 
error message is presented on the screen. 

To 'get' file(s), the same method is used as sending 
files except that the file names entered are sent to the 
destination computer (no broadcast capability is allowed 
nor desired) and the destination computer performs the same 
functions as the send command discussed previously. 

To find out who is connected in the same group, (anyone 
can connect to any established connection or anyone in the 
listen state) a 'w' is entered for the command ‘Who's 
there'. A packet is broadcast to everyone in the group 
asking for user's name. As the names are returned, they 
are displayed on the screen. 

To list all the lastest known active terminals, an '1'! 
is entered for the 'List' command. This list will include 
any known terminals in the 'group! connection as well as 
any other previously active terminals. When the ‘Who's 
there' command is executed, all terminals are removed from 
the linked chain of active terminals. The terminals that 
respond to the ‘Who's there' command are reconnected to the 
linked chain. Any transactions with terminals not in the 
active link chain cause the terminal to be added to the 
chain. 

The 'Bell' on/off command controls the computers bell 


when incoming messages are received. With bell-ON, the 
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bell will beep when a message arrives, for use when the 
user iS pre-occupied with other business and not looking at 
the terminal screen. 

The 'Directory' command will search the destination 
computer for the specific files requested. Entry of file 
names is the same as that for sending or getting files. A 
maximum of 32 file names are returned ina single packet, 
therefore, if many file names are being sent, each packet 
arriving will indicate the source of the packet and list at 
most 32 file names. A search of all microcomputers in the 
connection can be sieeernen by asking for the directory of 
'all' This will cause the directories of all connected 
computers to be displayed on the console. 

The 'Netstat' command queries the concentrator for the 
status of all the terminals in the network. This 
information is displayed on the terminal. The 'netstat'! 
command also includes status of the ETHERNET connection, 
such as number of frames (packets) transmitted, received, 
etc. To turn off the ETHERNET information when getting 
‘netstat', use 'verbose-OFF'. 

THE 'All' command changes the destination to broadcast 
rather than a single terminal. The prompt will appear as 
fall>'. Any transmissions to follow this prompt wi ligase 
sent to all users in the group. 

To change the destination to any other terminal, simply 


enter the terminal's number. To determine the number of a 
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ee use the "Bast", 'Netstat’ or "#' command. The 
'#! changes the destination terminal to the terminal 
itself. 

The 'Information' command gives helpful information 
concerning each command available. Prem pomrMa t on 
presented is contained ina file on disk. If the file is 
not on disk the command will fail and an error message will 
appear. If the file does exist, the information is 
presented at the user's pace, each segment is presented one 
at a time following a space bar entry by the user. To 
implement this feature, the file data is written to the 
Zeesonmcme wChaAtTaceer at a time until a 'tab" is 
encountered. Once finding a 'tab', space bar continues the 
screen output until the next 'tab' or end-of-file. The 
'tab' is used for easy editing of the file with a typical 
text editor. 

To print out a file, the 'p' command is used and the 
file name(s) are entered in the same format as a get or 
send command. The files requested are printed one ata 
time with automatic form feeds and file names inserted 
between file outputs. 

To change a group connection a 'c' is entered which 
terminates the old senmeSelon and waits for a terminal 
number to be entered. 

The 'Mailbox' command allows a user to keep a 


microcomputer connected to the network and accessible by 
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other users indefinitely. When a local connection is 
normally terminated, the concentrator will close the port. 
If 'mailbox' has been set, however, the terminal will re- 
establish a 'listen' connection, allowing any other 
terminal to connect with it at its leisure. 

To quit a networking session, a 'q' is entered. The 
application program asks to ‘'confirm' the input by entering 
a carriage return. . 

The 'Verbose-ON' command allows a microcomputer to 
perform screen output during file transfers and full use of 
the 'netstat' command. No progress on file transfers will 
be shown on the screen when ‘Verbose! is OFF. When 
multiple file transfers are occurring at the same time from 
different computers, the information displayed may be 
slightly confusing. The 'Verbose! feature will turn the 
screen output off, alleviating the user confusion. A user 
may also desire to turn off the Verbose feature when 
another user starts a file transfer with the former's 


terminal. 
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V Eee SEMEN TATION SUMMARY 


A. THE HARDWARE CONFIGURATION 

The hardware involved in this project was selected and 
procurement was arranged before the project began. As 
depicted in Figure 1.1, the microcomputers that are the 
users of the network.are Zenith, model 2-100 microcomputers 
with dual processor chips. The concentrator is a 
combination of three types of VLSI boards. The hub of the 
concentrator is an Intel 86-12A single board computer. It 
is connected to the microcomputers via three National 
Semiconductor model BLC 8548 I/O Expansion boards. Also 
part of the concentrator is the Intel NI3010 ETHERNET 
controller board. The concentrator is to be housed in an 
Intel Micromainframe System 432/600 or similar MULTIBUS 
frame which will serve as the communications medium between 
the boards. 

ETHERNET is a broadcast network communications medium. 
Implemented as coaxial cable, it is interfaced directly to 
the ETHERNET controller at each node via an inductive 
connection. ETHERNET operates at 10 megabits per second 
(MBPS). The connection between the microcomputers and the 
concentrator is a serial line using RS232 standards and 
operating at 9600 BAUD. The pin connection of the cables 


is shown in Figure 6.1. The effect produced by this 
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connection is to allow symmetrical handshaking. The 


handshaking protocol may be represented as a state 


transition model. Figure 6.2 gives the corresponding state 
diagram. 
peripherial gnd TD RxD DTR DSR CHASIS 
| | 
| | | | | | 
| V 4 V a | 
| | | | | | 
| gnd RxD TxD DSR DTR CHASIS | 
CONCEAL Yracor 
Figure 6.1 Serial Port Cable Pin Connections 


A prose description of the transitions follows: 


If a site is clear, that is, DSR is low, and the 
Site has not set DTR since last sending CLR, then 
either of two actions may occur: 


1. The site may set DTR to indicate to the 
other end that it has data to transmit. It must 
then wait for the other end to signal itis ready 
to receive before transmitting data. This will be 
indicated by DSR going high. 


2. DSR may go high indicating the other end 
has data to transmit. To receive the data, the site 
must set DTR to high. Once the data has been 
transmitted, the sender must send CLR, which will 
reset the receivers DSR and indicate that all data 
has been sent. The receiver will then send CLR and 
the sites will be back in the clear state. 
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Figure 6.2 Serial Connection Handshaking States 


B. THE SOFTWARE CONFIGURATION 


1. The Operating System 


The single board computer driving the concentrator 


will not operate under a commercial operating systen. 
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There will be no auxiliary storage to access and memory 
will be managed by the network software. 
The software for the 2-100 was written to 
accommodate users under MSDOS version 2.11. 
2. The Ada Programming Language 
a. Why The Ada Language? 

According to MacLennan [Ref. 5], "The Ada 
language is the Sade of a Department of Defense 
initiative to find a language suitable for embedded 
computer applications that began in the mid 1960's. 
Specifications were written as a sequence of five documents 
between 1975 and 1979 culminating in a competitive language 
design effort that produced the Ada programming language. 
The Ada language was revised once and reached its final 
form in September 1980." 

Since the Ada language is very large and 
complex, the first commercial compilers are only now 
becoming operational. The Janus implementation is not 
fully Ada language compatible in its implementation of 
strings, ASM statements, or type byte and does not support 
the Ada language standard exception handling or tasking 
capabilities. Janus/Ada was selected for this project 
largely due to its versatility in systems programming tasks 
and due to the Ada languages destiny as the Department of 
Defense Standard language for embedded and systems 


programming applications. 
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b. Useful Features 

The Ada language tool for iteration, 'LOOP', is 
a very pleasant addition to the high level operators 
repeated from PASCAL, COBOL, FORTRAN, and others. The 
ability to begin, end, and exit a 'LOOP', whenever desired 
provides the programmer the ability to create programs with 
the same structure as the problem. 

Another extremely useful feature of the Ada 
language is packages. Packages are program units that 
contain data, procedures and/or functions. Data and 
routines within packages are made accessible to a user by 
providing to the requestor, a specification complete with 
all the information necessary to use the data or routines 
in the package. Since the specification is all that can be 
seen by the requestor, details of implementation may be 
withheld, supporting the principle of information hiding. 

Packages also support separate compilation. 
Unless specifications are changed, recompiling of a package 
does not require recompiling packages referencing or being 
referenced by the recompiled package. 

Janus/Ada's resident assembly language and 
assembly language interface also are very useful 
characteristics. Routines that require high efficiency may 
be coded in assembly language and called from high level 
code. The ease with which assembly code may be used in 


conjunction with high level Janus/Ada code facilitates 
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creation of routines that emulate high level operators. 
-c. Problems 

(1) Janus/Ada is a New Language. A major 
problem in implementing the project in Janus/Ada was the 
lack of access to an instructor or programmer wae 
experience in Janus/Ada to assist in resolving problems and 
questions. This problem will diminish rapidly as more 
projects are conducted in the Ada language throughout DoD. 

(2) Janus\Ada is a Large Language. The 
specification of the Ada language dictates the size of an 
Ada language compiler. Many of the important features of 
Janus/Ada are not possible without a large compiler. This 
Size does create software development problems relating to 
long compute times and large storage requirements. The 
speed of the compiler is comparatively slow, taking 
approximately 90 seconds to compile a 100 line package. The 
compiler is large, requiring disk storage for some 254K of 
command and overlay files. The execution time of compiled 
and linked modules is relatively slow and compiled modules 


are also very large. When Janus is upgraded to a full Ada 


language status these problems may even worsen. 


Cy SYSTEM PROGRAMMING FUNCTIONS ON THE CONCENTRATOR 
The single board computer housed within the 
concentrator is a communications processor for the Z-100's. 


There is no auxiliary memory access required. The system 
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functions of managing internal memory (RAM) and resource 
sharing will be effected by the network software. 

1. Resource Sharing 

Requests to the concentrator for processing time 

will originate from twenty-five possible sources: The 
microcomputers, printers, Gemini system, and the ETHERNET 
interface. Each device is attached to one of the 
concentrator's twenty. four serial ports, and is polled for 
requests to send and receive data. Also connected to the 
concentrator, the ETHERNET controller board issues 
interrupts across the MULTIBUS to trigger direct memory 
access (DMA) transfer of packets destined for its ETHERNET 
address. These packets are linked to a queue for the 
destination Z-100 and are sent when the Z-100 is polled. 

2. Managing Memory 

| It is projected that the programs that will execute 
in the concentrator will occupy approximately 50K bytes of 
the 64K bytes of memory on board the SBC. The rest of the 
memory will be declared as an array of memory blocks, each 
of which is large enough to contain one 'datagram' withall 
protocol headers and five hundred and twelve bytes of data. 
As the size of the program increases or the memory is 
expanded, the number of blocks declared may be modified by 
changing the max mem blk constant in the package 'Globall'. 

The blocks are used to hold incoming frames and to 


build and hold outgoing frames. The blocks are allocated 
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and returned by routines that manage the blocks uSing a 
memory management table and pointers to identify the next 
available block. Though most blocks will be retwemem 
through normal processing, there is a ‘garbage collector' 


to return blocks left by abnormally terminated processes. 


D. THE SYSTEM DESIGN 
1. The Structure ot the Pruchmen 
The SEODCT MOE implementing a concentrator based 
NPS local area network may be decomposed into two halves: 
a. Programming the concentrator. 
b. Programming the Z-100 micro-computers. 
These two separate computers perform many functions that 
are clearly assignable to one or the other. For example, 
routing messages to the correct Z-100 from the network and 
communicating with the ETHERNET controller board are 
definitely concentrator functions, while communicating with 
the user is the responsibility of the Z-100. There are 
many functions that could be performed by either computer. 
The problem closely resembles the level structure 
of most network implementations. The physical network 
protocol level, network address resolution protocol, 
INTERNET interface, site to site coordination, and user 
interaction layers are encountered within this project. 


Figure 6.3 is a graphic description of the layers addressed 
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| | | 
| USERs | Z-100s | 
| | | 
| | | 
| APPLICATIONS | Z-100s | 
| | | 
| | | 
| LOCAL/TELNET/FTP | Z-100s | 
| | | 
| | | 
| PORTs | CONCENTRATOR/Z-100 | 
| | | 
| | | 
| LOCAL/TELNET/FTP | CONCENTRATOR | 
| | | 
| | | 
| TCP | CONCENTRATOR | 
| | | 
| | | 
| IP/ADDRESS RESOLUTION | CONCENTRATOR | 
| | | 
| | | 
| ETHERNET | CONCENTRATOR | 
| | | 


Figure 6.3 System/Protocol Layers 


in this implementation. Generally, the concentrator 
handles the lower layers of protocol while the Z-100 
performs functions nearer the user level. 

Within the concentrator, the problem may again be 
decomposed into two halves. The concentrator must be able 
to send messages onto ETHERNET and receive messages from 
ETHERNET. These two halves are independant of each other 
though they do handle the same protocols. Figure 6.4 is 
the structure chart for the packages resident in the 
concentrator. The protocol layers are the more specific 


description of the problem since each message sent out must 
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pass each protocol layer 'downward' while received messages 


must clear each layer ‘upward.' 
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Figure 6.4 


Concentrator Package Structure echare 


From the Z-100 level the problem is very specific: 


‘Match the protocol of the network application software on 


the VAX UNIxX.' 


In the case of local transfer, 
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the problem 


Was tO Create a protocol. The application software to be 
matched are TELNET and File Transfer Protocol (FTP). 
2. Principles 
a. Remain standard 

The primary source of information regarding the 
network protocols was the Stanford Research Institute's 
mmotrication [{Ref. 2]. Presraoculment COntarlns a 
Specification of the INTERNET Protocol and Transmission 
Control Protocol. Since there is no governing authority to 
enforce meticulous adherence to the specification, 
variations to the standard exist. Each of these variations 
is a source of error and aggravation for the programmer who 
is trying to match the non-standard system. In an attempt 
to facilitate future maintenance programming for this 
system, the documentation was followed as closely as 
possible. Most design and implementation decisions that 
the references addressed were made to follow the documented 
standard. Only when allowances had to be made to match 
non-standard systems was the system intentionally allowed 
to vary from the documentation. For this reason, the 
programs were allowed to carry the standard names TELNET 
and FTP. The local transfer program also follows the lead 
set by the guidelines for TELNET and FTP. 

b. Modularize 
The scope of this project is in the range of a 


small to medium sized software engineering project with 
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between five and ten thousand lines of code. This, coupled 
with the nature of this project as a joint thesis, demanded 
a thorough decomposition of theoreti. The 
modularization was attained based on the structure of the 
system. Each protocol layer was handled independently of 
the others and the modules were separated accordingly. 
Libraries were created to store frequently used modules 
such as handshaking routines, special adders, conversion 
functions and others, and modules written in assembly 
language were separated from high level Ada code. 
3. Methodology 
as Prototype 

The starting point for the work done in this 
thesis was the thesis by LtCol Reeke [Ref.: 1], which 
contains the code to trigger a remote login to the VAX 
UNIX using the ETHERNET communication interface. The 
sequence was accomplished by 'listening' to ETHERNET and 
Mimicking another station that had remote login 
capabilities. The first goal of this project was to 
complete the login sequence on that system. Reeke's 
system, programmed in PL/I, provided many tools used to 
effect the login. The program to 'listen' to ETHERNET was 
invaluable and his research concerning the checksum and 
other algorithms is implemented into the system. Many 
problems were yet to be overcome in order to effect a 


complete login. The problems of address resolution, 


70 


retransmission of lost or mishandled packets, sharing of 
data between interrupting and interrupted processes, and 
managing memory without the assistance of an operating 
system were just some of the major hurdles to be overcome. 

Though the prototype system did not resolve all 
these problems, it did provide many answers and provide a 
very good basis to design the final product of this thesis. 

b. Top Down- 
Figure 6.5 is the Level 0 diagram for the final . 


system. This diagram was designed on the basis of 
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Figure 6.5 Level Zero Diagram 
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knowledge gained from the prototype and has surv ivedeue 
project with minimal modification. The blocks representing 
the highest level modules were decomposed into smaller 
functional modules. The decomposition continued in 
hierarchical fashion until the lowest functional level was 
attained. An attempt was made to minimize interface between 
modules by specifying all input and output data as 
parameters. 
4. The Modules 
a. Globall 

One of the taboos in structured design is the 
use of common data or global data areas. This project 
avoided these to a large degree. The package 'globall' is 
an exception. Beyond the usual need for global types and 
constants which are made visible at all scoping levels, 
this problem required some other shared data. The ETHERNET 
controller is an interrupt based processor that 
communicates with the host computer it is supporting by 
triggering interrupts over a MULTIBUS configuration. All 
data addressed to the supported host is passed via this 
interrupt process. The host computer continuously queries 
or polls the ports and services requests including the 
transmission of packets onto ETHERNET. The pol aime 
process, considered the steady state process, and the 
interrupt process must be able to access and modify the 


transmission and port control tables. The necessary dual 
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access is effected using the global data area 'Globall' 
where these two control block tables are declared. 
b. Poller 
Poller is the driver of the eS) sxe alie\ 1 jet= 
concentrator. It polls ports for service requests using 
the port control block entries as reference. Only active 
ports, which are identified in a linked list, are polled in 
each cycle. Periodically, with the time period specified 
by system maintenance personnel, inactive ports are checked 
for requests. In addition to the remote login, remote file 
transfer, and local file transfer requests, net status, 
port number identification, and passive listen are valid 
requests. Poller updates the state of each port as it 
progresses from process to process to attain requested 
service. | 
eae le ONE 
Once a user has triggered a connection with 
a remote host, the only function of the concentrator is to 
pass data between the user and the network. This 1s done 
asynchronously. The port from the Z-100 is checked and if 
data is ready, it is read, stored in memory, and the 
transfer triggered. If there is data queued for the Z-100, 
at most one packet is transmitted per cycle to the Z~-100. 
Checks are also performed to allow the user to terminate 


the process. 
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The Z-100 acts as a 'dumb!' terminal once the 
process is begun. Each stroke of the keyboard is 
transferred to the concentrator and data echoed from the 
concentrator is displayed on the screen. 

d. FTP 

FTP is very similar to the TELNET process at 
the concentrator level. Data is simply passed between the 
Z-100 and the host.- One difference is that FTP utilizes 
two network connections to effect data transfers. The 
concentrator must manage both connections and coordinate 
with the Z-100 to determine which line to use when. 

The Z-100 is programmed to implement the file 
transfer protocol layer. FTP operates as a séries of 
commands from the user (active requestor) and replies from 
the server (inane servicer) to coordinate transfer 
parameters and trigger the transfer. Sequencing is 
presumed and close coordination with the concentrator is 
required. No provision has been made to allow a remote 
host to initiate an FTP connection with a Z-100, hence, no 
server process is coded. 

e. Local 

For the requirements of local file transfer, 
the concentrator acts as a packet switcher. A control 
block for each port identifies which packets are to be sent 


or received, and when the ports are active, the transfers 


74 


take place. Printing is also handled using this packet 
switching mode. 

The software on the Z-100 makes this local 
transfer process a very powerful tool. Capabilities 
include message passing, transfer of multiple files to 
multiple users, passive listening to allow network users 
access to one library, network status query, and port 
identification. Minimal foreknowledge is required by a 
user of this system. In order to transfer files between 
two computers on the net, both must be operating under the 
local transfer software and the sender must know the port 
identification number of the receiver. Many of the 
features will prove very helpful to instructors and system 


Maintenance personnel as well as students and other system 


users. 
—Tce 
The purpose of these modules is to perform the 
ee ecommunication control protocol functions. These 


functions include opening, closing, and maintaining 
connections, monitoring and acknowledging packets to 
prevent data loss, updating the telecommunications control 
blocks, and interacting with the higher and lower layer 
meocOocols. TCP also provides an address to allow 
identification of separate users within a Single network 


host. 
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G4 IP 
The INTERNET Protocol is concerned with the 
operation of the telecommunications network. The IP address 
identifies a unique node on the net. On ETHERNET, this 
address is resolved to select the controller board which 
will read the packet. 
h. ETHERNET 
At the physical layer, the protocols are 
handled by the controller board that must be used to access 
ETHERNET. The purpose of the software in these modules is 
to communicate with the controller board to coordinate and 
effect data transfers to and from the ETHERNET. 
1. Library 
Network transfer of data requires preservation 
of all eight bits of each data byte. This precludes 
representing the bytes as type 'character' and the type 
integer does not lend itself well to the necessary 
individual byte manipulation. Many fields within the 
protocol header are represented as arrays of bytes which 
require mathematical computation to be performed on them. 
Special routines to add two and four byte arrays were 
written and reside in the library package. The library 
package also contains the routines that provide memory 


Management functions for the single board computer. 
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Vb ee CONGRUSIONS 


This thesis is mainly an implementation of the TELNET, 
FTP and Local eeaneree processes on the NPS LAN. The 
research objectives of coding in Janus/Ada, navigating the 
protocols to allow remote login to the VAX UNIX system over 
ETHERNET, implementing protocol requirements of FTP, 
allowing single or multiple local transfers, and sharing of 
local resources were satisfactorily completed as evidenced 
by the systems in operation. The network communications 
systems created in the course of this thesis enhance the 
NPS AEGIS laboratory systems development in several areas. 
First, 1t is a demonstration of the ability of Janus/Ada to 
effectively perform complex operating system and embedded 
type functions. Second, it allows creation and integration 
of program code for the NPS AEGIS laboratory system on 
microcomputers. Third, it gained direct access to DDN, 
MILNET, and ARPANET from within the development system 
itself. Pumally, 1t demonstrated the viability of 
clustering processors to share expensive resources and 


otherwise enhance data communication and transfer. 


Ta 


APPENDIX A 


PROGRAMMING NOTES 


A. INTRODUCTION 


The objective of this appendix is to provae 
programmers maintaining the system with information that 
will be helpful in modifying or adding to this system. The 
largest and most complicated portion of this system is the 
process that executes in the concentrator, the LAN 
controller program. The major areas of the system to be 
discussed are program compilation and loading, the 
concentrator progran, interface to the concentrator, 
TELNET program, the FTP program, and the local connection 
program. 


A good source of information about the concentrator 
from the standpoint of overall design for TCP/IP protocols, 
and a ‘must! reading for anyone doing maintenance on the 
program, is the SRI INTERNET Protocol Transition Workbook, 
reference 2 of the thesis. 


B. PROGRAM COMPILATION AND LOADING 


Under Janus/Ada, the compilation order of packages and 
specifications is critical to system operation. Included 
with program listing in the thesis is a listing of the .sub 
files used to compile the programs. Linking using 'Jlink' 
will produce an executable .com file for FTP, TELNET, and 
Local programs executing on the Z-100(under MS-DOS). 
Loading the concentrator is slightly more complex. 


Loading the concentrator program is effected by a 
program named 'Boot.com'. Boot should be resident on the 
boot drive of each Z-100 and should execute each time each 
Z-100 is turned on. The Read Only Memory (ROM) of the 
86/12 A has been configured to handshake with the boot 
program. If the concentrator is not executing the control 
program and is in the ‘reset! mode, boot will transfer the 
control program to the concentra-ec If the contre 
program in the concentrator 1S executing or ea 
concentrator is turned off, handshaking will preclude a 
boot attempt. 


The control program loaded by 'Boot.com' contalnecugm. 
executable code created by linking the .jrl files from all 
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concentrator packages. When reprogramming a particular 
package, if the specification is not changed, then only the 
changed package need be compiled. If one or more package 
specifications is changed, the compilation should be 
accomplished using the .sub file provided with the 
concentrator software. To produce the controller program, 
compile concentrator programs (under CPM-86) as necessary, 
then use Jlink on the package 'Poller'. This will create 
meme file 'Poller.cmd'. Rename 'Poller.cmd'! to 
‘Control.prg' and, convert the CPM-86 .cmd file into MS-DOS 
format using the program 'Rdcpm', and place the file on the 
boot disk of each machine(under MS-DOS) along with 
ppoet.com'. 


C. CONCENTRATOR PROGRAM 


The general function of the concentrator can be thought 
of as passing packets of information from one port to 
another. Along with the process of passing packets it must 
maintain the status of the connections as well as managing 
memory. The concentrator does not contain an operating 
system, therefore the customary functions that are normally 
handled by the operating system had to be avoided. Before 
going into detail about the individual procedures in each 
packet, you will benefit by a general one on the overall 
program. 


The concetrator begins execution by initializing the 
data structures to appropriate values, setting appropriate 
initialization of the UARTS, activates the NI3010 ETHERNET 
controller board and obtains the EHTERNET physical address 
from the ETHERNET controller board. 


Understanding the data structure is important to 
knowing the details of the systen. Starting with the 
terminal ports are the Port Control Blocks (PCB) for 
maintaining the status of the connections with the 
terminals. The PCB structure is: 


iYeEePpes tree 15 RECORD 


PSP Ene : BOOLEAN; 
data prt : INTEGER; 
Sta Pre >: INTEGER; 
‘ox ito Uo) ages : INTEGER; 
“prLO 2) LNTLEGER; 
SE Prec : integer; 
sent : BOOLEAN; 
Pstate >: Pstates; 
time wait : INTEGER; 
ace : BOOLEAN; 


ae, 


i pige eae abway2,, 

S pre lvac array2; 
sec act : BOOLEAN; 
Loecmeon INTEGER; 
Jobe ata socket_rec; 
buts ingene INTEGER; 
pcb _ ptr INTEGER; 
snd tig vanuays, 
ack Ciggacray,: 
ade ohAe INTEGER; 
filig wae INTEGER; 


The PCB state is used to determine which process to 
call to handle transactions going to and from the port. 
The close state is just that, the terminal connected to the 
port is inactive as far as the concentrator is concerned. 
The terminal may very well be executing an application 
program that does not require the use of the concentrator. 
When the users desire to do some networking, they must 
execute one of the programs to interact with the 
CONCeneracor. The interaction begins by the terminal 
sending a control code down to the concentrator specifying 
what the users desires 1S. The concentrator reacts by 
sending the same control code back and changes the state of 
the PCB. Normally one state leads to another, for 
instance, when a TELNET process is initiated by the 
terminal, the PCB state goes from close to r_init. The 
next information expected from the terminal is the address 
of the destination host. Once the address is received the 
connection is attempted by the concentrator. 


When the foreign host connects with the concentrator, 
the state of the PCB is changed from r_init to Flogne ia. 
following is a summary of the state transitions: 


closed 
+---(receive rlogn)---+| |+--(receive loc)--+ 
| $+—------- + ++—=—+ | 
| (receive ftp) | | 
See sages ghil ic (receive lstn) 1 made 
| | |--(unable)---+ | 
(estab) (estab) lstn (estab) 
| | | | 
Ee lLogn £Ep (estab) ----+ | 
tee--+ 4------ + | | 
(disconnect) local 
| +=-(disconnect) + 
closing 


+=-(PCB ee teareca)———| 


closed 
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These are the fields in the PCB: 


Pavermne — A boolean that initializes that PCB to state lstn 


if the boolean is true. 


Data prt and stat prt - Contains the port address of the 


data and status registers on the respective UART. 


PrtQ and s prtQ - Indexes to memory blocks in the particular 


queue. The prtQ is the primary queue ands prtQ is 
the secondary queue. During TELNET communications 
only the prtQ is used. During FTP commnications 
both ‘queues are used. During local connections the 
Ss prtQ is used to queue a memory block and the prtQ 
is used to count the characters between tabs for 
printing purposes. For amore thorough discussion 
of how the queues are implemented see the discussion 
on the memory management table. 


Sent - A boolean used to remember is if a packet was sent 
ie, glenen It is also used as a flag in local 
connections. 

Time wait - is a loop counter for timing out a connection 
once a certain state is reached. 

Act - A Boolean used to specify either an active or passive 


connection (see the TCP/IP handbook for details). 


L prt_ad and s prt_ad - Field to store the TCP addresses are 


sec act 


foc con 


stored in the PCB. These are used to make the 
connection between the PCB and TCB. More than one 
TCB can be associated with one PCB. 

- A boolean to indicate if a second connection is 
made to the same port. Used only in FTP when a 
primary connection is made and then a secondary 
connection for passing file data. 

- Used as a pointer to link PCBs in the same 'group' 
(see ch 5 of [HART/YAS86] for group discussion) so 
that local broadcast packets are easily sent to all 
members of the group. 


dst_ad - A record containing an IP address and a TCP address 


of a destination host. 


dst_ad_rcv - A boolean to know if the destination address 


has been received or not. 


peb ptr - A pointer to link all the active PCBs together to 


speed the polling processs. The inactive ports are 
polled once out of a value equal to ‘loops to poll' 
(recommended: 1000). 


snd - An array of flag bits that every terminal marks to 


indicate that a packet is ready at the respective 
bit position terminal. For example, bit 7 is set 
when terminal 7 has a packet to send that particular 
terminal. The packet is stored at the originator's 
S prtQ. These flags are used only during local 
connections. 
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ack - An array of flag bits exactly like 'snd' above, only 
these bits keep track of all terminals that need to 
acknowledge receipt of a packet stored at that PCB. 


When communications occur between a terminal and one of 
the hosts on the ETHERNET, the TCP/IP protocol is used to 
pass packets. TELNET, FTP and local all use the PCBs to 
maintain status of each port. TELNET and FTP use the TCP 
layer (see ch 2 of the thesis) to maintain status of the 
connection across ETHERNET. To store the state of 
communication a Transmission Control Block is used (see the 


TCP/IP handbook for details). The following fields are 
stored in the TCB: 


prt num - An integer index for the associated PCB number. 


Tstate 


This is the means of relating a TCB to a PCB when a 
packet is received. This field is set to 99 when no 
connection exits. 

- Maintains the state of the particular connection, 
1f there is one (see the TCP/IP handbook for 
details). 


loc sock - A record containing the local TCP amcmien 


addresses of a connection. 


rem sock - A record containing the remote TCP and IP 


snd - A 
rev - A 


retrnsQ 


addresses of a connection. 

record containing the necessary information about 
proper sequencing of packets over the ETHERNET. 
record similar to 'snd'! above (see the TCP/IP 
handbook for details on both snd and rcv). 

- An integer containing a memory block for the 
beginning of the retransmission queue. If a packet 
1s not ackowledged by the receiving host after a 
number of times around the polling process, it is 
considered timed out and is retransmitted again. 


Address resolution is a means of finding the physical 
ETHERNET address of a foreign host. Once the address is 


found it is placed ina table along with its IP address. 
The table also contains a value to identify how recent an 
address is should the table becomes full and one of the 
addresses is removed to allow room for another. There is 
more on address resolution in RFC826. 


Eth peck - This is a memory block much like the TCP7ae 
memory blocks only the fields are different. Two 
independent implementations cause a particular problem in 
handling address resolution packets. (1) All the memory 
blocks are identical; (2) Any packet received is put in any 
one of the standard memory blocks. The Ada language does 
not have overlay capability because of its strong typing. 
To allow a memory block to be transformed into another type 
an assembly language routine is called (convert block) that 
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does nothing but jump to a highlevel routine that expects a 
different type memory block. Once this is done all the 
fields in the memory block can be addressed normally. The 
following is a comparision of the two kinds of memory 
blocks: 


TCP/IP ETH PCK 
+--------- +--------- + +--------- +--------- + 
| ETHERNET | | ETHERNET | 
| HEADER | | HEADER | 
| | | | | | 
+—--------- +——-------+ +--------- +e-------- + 
| ver | serv | jar -hrd(1) |ar pre (2)t 
+--------- +eese----- + +—--------- +--------- 
| len(l) | len(2) | a Ta ae 
+—-------- +—--------- + +--------- +--------- 4 
i 2a.) eeelG2 ) | fateelen Gi jjar len(2) | 
+—--------- +—--------- + +—--------- +—--------- + 
| flag(1) | flag(2) | | null | ar op | 
+--------- +--------- + +—--------- +--------- “+ 
| e1edk | prot | pant Sek ae biG. a 
+--------- +--------- 4 +e - - - - - -4 - - ~- 
|ip cksum1|ip cksum2 | [Mein ETH (3) | fm_ ETH (4) | 
+--------- +--------- + +e 4 + 
) oe pon 2) | 1P_ scr(2) | ‘im BTH(S) |fm ETH(6) | 
+------ - - - 4 -- -- --- = + +—----- woofer + 
Wee ip sorc4)| PEE (Gls) {em_ IP(2) | 
+--------- +—-—-------- + $e 4 + 
| ip ast (1) |ap_ me PEs) Pre i145 | 
+e 4 - - +—--------- +--------- 7 
‘ip dst(3)|ip ast(4)| [pe@_ 2220s) eke Hs a 
+--------- +—--------- + +—--------- +—--------- + 
Persecmqinves| Sscr(2) | he Omi (3) toner (4): | 
+--------- +--------- 4 +—--------- +--------- ~ 
feese (ta ast(2) | lee ee EET ( 6) | 
+--------- +—-------- + Pm meee netfee ee He -- 
| seq(1) | seq(2) | [to_ ire [to EZ) | 
+--------- +--------- + Fee ee nee ef eee eee + 
| seq(3) | seq(4) | poueyes i€0. EP(A) | 
+--------- +—--------- + +—--------- +--------- ~ 


The memory management table (MMT) enables full 
management of memory by use of pointers. The memory blocks 
are all equal in size (576 bytes). The MMT is an array of 
integers which is indexed by integers. The indexes 
correspond to the indexes of the memory blocks. Sens 
example, memory block number 7 would be index number 7 in 
the MMT. The integers stored in the MMT are pointers 
(indexes) to the next memory block in succession. If, for 
instance, a queue is used to store a number of packets, the 
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first memory block in the queue would be the first packet. 
The second memory block (or packet) could be found by 
checking the MMT with the index of the first one to get the 
second. The following is the way the MMT is initialized 
during boot~-up: 


+------- + 

free bIk=-—=— si 2 | 
$ooe---- + 

Zl 3 | 

$<------ + 

3 | 4 | 

+------- + 

+ooen-—- + 

Lo ee 

+--=----- + 


Free blk is a pointer to the next available memory 
block. When the first memory block is used the free blk 
pointer is moved to the next one as indicated in the MMT. 


Appendix B will focus on individual procedures and how 
they function. The discussion will follow packet by packet 
and cover each procedure in each packet. The following is 
an outline of all the packets and what procedures are in 
each: 


i. --Poliex. 
A Poll 
B Rem sini 
Ca SLOG 
Dey Feb. 


E..- Inderal ze 


Ils Locxter. 
PS IL[OXS! si ghilie 
5B. Loc 


III. TCPsend 

Ter sOpen 

TCP send 

TCP close 
Check retrnsQ 


UAW LY 


IV. IPsend 
Ae EPR ocend 
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von 2 lLasend 
Pee ol Send 


VI. RCV 
Ae NeEEpt hdl 


walk. EBTHrec 
A. Eth_pck 


wir. LPrec 
ie Leeecy 


me eeCrrec 
ee 6LGP ECV 
Eee peoeclsing- 
C. Conv_blk_snd 
D. Send ack 
E. Update retrns 


xs PCBrec 
A. PCB ev 
B. AGVEaerstace 


mi. Convblk 
A. Conv_blk 


rrr. Ntrpthd 
A. Assy _ntrpt_hdl 
5 Abele. nlstgehe 


Porrr. Lib 
A. Get memory 
B. Give memory 
Pereeencd 
Trn_pck 
Resolve ad 
Cete les nax 
Gare lic 
Pep abort 
ees sels 
AeCwelvatce prt 
Giv e status 


GQHMmyA~aOWNwAON 


XIV. Assylib 

Cksum 
Wr_ad 

Owe Ort 

mee coe nt 
Ohi 

Ole 

Migheiaye 
Otstbit 


ca sAON Ww YS 
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OCP ake 
Osetbit 

Gremequ 

EeLequ 

ine are 

ieee fore 

Upper nibble 
ENG icc teacnal el 
PrEawex Q 
Sra i Yel segs) 

CEC) eras 

Opus 

Onew line 

xsum 


© 


<KGHNWOVOSZSMAGH 


9, Fee dale = 
Aw, VETP 


AVis. TEENEE 
A. TELNET 


KVIT. (ECGAIs 
A. Handle kybk_input 
B. Handle incoming packet 
C. Established 


XVIII. ASMLIB 

A. Byte totenar 

B. Byte sco lear 

G..) PEntdaca 
Getenh 
Delete file 
Create file 
Open file 
Write file 
Close file 
CKsum 
Setdma 
NO echo 
Search frst 
search nxt 
Get. Cras 
Se) gle WE ere ale 
Read file 
Capital 
Lower case 
J Nene See =e go 
Conv {pyc 
Ewor byces 
CU ent mesic 
Geir srng 
Prnte out 


KM SES CHNWOVOSSBMrAGCHRAWAHASO 
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ore 6B (2-100) 
Ae Send cmd 
Bee oenc Gata 
C. Get data 
D. User options 
E. Get dataline 
Peweesocess reply 


XX. FUNCS 
IX | (GSE ehoe 
B. Get password 
Cee Ccrmiloe Eicame 
De Ger porenum 
E. Get filename 
F. Get parameter 


MXE. GET IP 
A. GET ADDR 


poet. LIBRARY 

A. Activate 
Deactivate 
Get_ memory 
BEegeo Int 
Give memory 
Put in trnsQ 
Tica tt 
Peon 
Add _ to Q 


° 


HoOoMamHONw 


merit. FILEXFER 
A. Send file 
Bee beace LCE 
C. Receive file 
D. Close FCB 
E. Send dir 
F. Information 
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APPENDIX. 
PROGRAM MAINTENANCE MANUAL 


A. PACKAGE poller 
1. CONFIGURATION 
a. Language - Janus/Ada 
b. Compiler version - 1.47 
c. Linker version - 1.47 
d. Target hardware - Intel 86/12A SBC 
e. Operating system - CP/M-86 
f. Package description: 

Poller - The poller package consists of the 
initialization sequences of the entire program and polling 
routines that poll each terminal for transfer of data or 
execution of commands. Poller begins by setting up the 
data structures and initializing the hardware such as the 
NI3010 ETHERNET controller board and the terminal UARTS. 
There are 4 port addresses for the RS232 ports, each 
consecutive port are addressed next to the previous, 
however,. a second set of port addresses, for interrupt use, 
are addressed after the first. See table 2.4 of 
([HARTMAN/YASINSAC 86] for port addresses on each board. 


A total of 64 address locations are used for each RS232 
controller board. In order to accommodate all the poms 
addresses of the three RS232 boards as well as the 
1SBC86/12 and NI3010 boards 16 bit addresses had to be 
used. The RS232 port addresses range from 0000 hex to O1BF 
hex. The iSBC86/12 uses port address O0OCO hex to OOFF. The 
NI3010 board uses port address OOBO hex to OOBF hex. 


Port Address Table (in Hex) 


OOOO-O0OAF | not used 

00B0-00BF = | ~—=SNI3010 ETHERNET controller board 
00CO-OOFF =—s—s«|.~=Ss«GSBC86/12 CPU board tst—~—S 
0100-013F =|. —s«RS232. board #100 ts—<is—isS 
0140-017F | += RS232. board #2000202<~C<“~*C‘“‘COCS*S# 
0180-01BF = || ~=Ss- RS232 board #300020©6©60———“i‘™SCS 
Q1CO-FFFF ss {snot used i  ss—i—i—sS 
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Package Poller initializes all the PCBs to either a 
printer or terminal by setting the boolean is print to true 
or false respectively. When the NI3010 ETHERNET controller 
board is initialized it is commanded to perform command 
'receive status’. From the 'receive status' command the 
physical address of the controller board is obtained, 
enabling changing of this board without affecting operation 
of the system (ensure system is turned off before changing 
board). See the manufacture's manual for more information 
on the NI3010 board. The ETHERNET board is set to receive 
packets over the ETHERNET. Only packets that are addressed 
to the physical address of the ETHERNET board or 
'proadcast' packets are captured for processing even though 
the board has capabilities of capturing other packets. 


Zoe SUBROUTINES 
a. Poll 

(1) Type - Procedure. 

(2) Purpose - Poll all serial ports and call 
appropriate processes to handle the particular state of 
each port. 

(3) Description of parameters - no parameters. 

(4) External references: 

(ajun Get tech inex 
CS Leome lic 

(c) Tcep close 
(d) Give memory 
Ce)) TSxsiole) eis at" 
(Gh) a eno iste 

(co eeOuUEDEE 

(_h) oOtstbit 

(1) Rem init 


(J) Rlog 

(kK) Ftp 

G57 Loerie 
(m) Loc 


Ci) eC DCC eee iahiS cf 
(co) Give status 
(5) Process description: 

The polling routine is an infinite loop that is divided 
into two phases. In the first phase only the ports that 
are active are polled. An active port is one whose state 
7S anything other than ‘closed' or ‘listen’. These 
particular ports are selected by a linked chain of ports 
beginning at the 'head' PCB. When a port becomes active it 
is inserted into the linked chain and when inactive it is 
removed. The polling process simply follows the linked 
ehaim Until it returns to the ‘head' PCB. The state of the 
Beeb is the important field for the poller. fThe state 
determines what process to call on (if any) to handle the 
connection. The only state that does not require calling 
another procedure is the closing state, when all data is 
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being flushed out of the queues, which, once done, the 
state is returned to closed. 


The second phase of the polling process happens once 
every so many loops depending on the value of 
‘loops to _poll' (constant 1000). During this phase all the 
closed or listening ports are checked for any control codes 
for which to change states. A garbage collection routine 
is also included in this phase. 


b. Rem_init 

(1) Type - Procedure. 

(2) Purpose - To obtain the foreign address 
from the particular terminal passed aS a parameter. Once 
the address is obtained, the three-way handshake is 
initiated. 


(3) Description of parameters - 
(a) prt num = pore number 
(b) rem tcp addr - the two byte 
address of the remote socket. 
(4) External references 
(a) 2inpee 


(Db). Gtstbite 

(ec) ‘OUEpiEc 

(dq) Zepropen 
(e) Ger Celene. 
(i). Pebrets 


(5) Process description: 

To establish a connection with a foreign host a 
sequence called the 'three way handshake' is initiated. 
The rem_init procedure is used for the handshake which is 
used in TELNET and FTP connections. When a terminal 
commands a TELNET or FTP process, then subsequent polls of 
that port calls rem_init to get the foreign INTERNET 
Protocol (IP) address from the port. The address is a 4 
byte address which is concatenated with a 2 byte TCP 
address of the well-known socket. For TELNET the well- 
known TCP socket is 0017 hex and for FTP it is 0015 hex. 
The well-known TCP socket is passed in as a parameter to 
rem init. The address it depends on whether a TELNET 
process or FTP process is desired. Once rem init has the 
entire socket (TCP/IP address) it calls TCP_open with the 
socket. The sent parameter returns whether the packet was 
actually sent or not (if the physical address of the 
foreign host is not known then the packet is not sent and 
an ‘address resolution' packet is sent instead. Rem init 
will attempt again after a time wait period, or close out 
the port if no reply is received from the foreign host. 
The state of the connection (PCB state) will be change by 
receipt of a packet from the foreign host. The state is 
changed in procedure ‘adv _ PCB state’. 
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e. Rlog 

(1) Type - Procedure. 

(2) Purpose = To process ana send data from 
the terminals to a remote host. Any control codes sent by 
the terminal is also processed. 

(3) Description of parameters - 

(a) pee ule — sport enumber. 

(4) External references: 

(ay i npre 

(Dy Gestbit 

(Ee GeeOucpr.: 

(d) Tcp close 
(eo) == Gert step ndx 
Clee ben Gis 
ig) eer eLs 

(h) Tcep_ send 
(ijpecet, trns 
(j) Give memory 
(kK) Get memory 
(1) Send_trns 


(5) Process description: 

The TELNET process was formally called ‘remote login' 
Srerlog, hence Che name rlog. When the three way handshake 
is complete for a TELNET process, subsequent polls of the 
PCB will call 'rlog'. Rlog does three types of checks, (1) 
checks for a control code from the terminal (2) checks for 
Gata from the terminal and (3) checks for data to the 
terminal. A control code will be found by checking the 
status port for ‘receive ready'. To determine if the 
terminal is trying to send something, the status port is 
checked for Data Set Ready (DSR). If data is to be sent to 
the terminal then the prtQ field will contain a value other 
than zero (the value being what memory block is held in the 


queue). 


ei, FTP. 
(1) Type - Procedure. 
(2) Purpose - To process all data and control 


codes to and from the terminals in an FTP connection. 

(3) Description of parameters - 

(a) PSe NUN =e powe mumbper . 
(4) External references: 

(= 9 eee 9 ohobane 

Cs) (hestejeahe 

[CG Ree OUE Dice 

(ad) Tep close 

(e) Send trns 

CE) Pchmabore 

(g) Tcp_open 

(h) Tep send 

(1) Get _trns 


on 


(Jj) Give_memory 
(k) Get memory 


(5) Process description: 

The FTP process is a bit more complicated than the 
TELNET process since two connections must be handled at the 
same time. One connection is used to control the FTP 
process between the hosts and the second connection is used 
to pass the data. To implement a dual connection to a 
single port we use a boolean value (sec _ act) to designate 
Single or dual connections. If a dual connection exists 
then no data is passed to the terminal over the control 
connection until the data connection is terminated. The 
basic checks as in rlog are also made (1) check for control 
code (2) check for data from port (3) check for data. 
port. To determine if data from the terminal is for the 
control or data connection a one byte header is used which 
designates either control, data, or other. 


e. Initialize men. 

(1) Type ~- Procedure. 

(2) Purpose - To initialize certain portion. 
of memory at the beginning of execution and during periods 
when no terminals are active. 

(3) Description of parameters - none. 

(4) External references: NA. 

(5) Process description: 

To set up the data structures at the beginning of 
execution and also as a housekeeping function during 
periods when no terminals are active, the initialize mem 
routine is used to reset everything back to an inactive 
state, ensuring all memory blocks and TCBs are available 
for use. 


B. PACKAGE locxfer. 
1. CONFIGURATION. 
a. Language - Janus/Ada. 
b. Compiler version - 1.47. 
c. Linker version - 1.47. 
d. Target hardware - Intel 86/12A SBC. 
e. Operating system - CP/M-86. 
f. Package description: 
Package Locxfer handles all terminals in the states of 
1 init (local initial) and local. Local connections Canwae 
from any terminal in the ‘'local' state to any in the 
‘local’ or. "stn" Wsetacwer 'Group' connections are 
Simultaneously maintained, but the use of a group 
connection is solely for broadcast packets. For instance, 
if you want to send a message from terminal 5 to terminal 
12 then you can do so if 5 is in the 'local' state and 12 
is in either 'local' or 'lstn'. If, however, you want to 
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send the same message to terminals 12, 13, 14 and 15, 
without repeating yourself, then the terminals 5, 12, 13, 
meeerand 15 must be in a ‘group! connection. What 
designates a ‘'group' are the links that connect PCBs 
together using the loc _ con field in the PCB. Every PCB 
that is ina 'local' state has a link to another PCB. The 
links are set up by the port number that is passed down 
from the terminal designating what terminal to link to. 
The queues for local connections, unlike TELNET and FTP, 
are maintained in the terminal themselves. The terminal 
sending packets out may have several in its transmission 
queue. Only one packet at a time resides in a PCB for 
tranfer to another terminal. Another difference with local 
transfers and TELNET or FTP is that packets are stored at 
the originator's PCB’and not at the destination PCB. 


ee OUBROUTINES. 
sin) dere Mab ouker 
(2) Type - Procedure. 
(2) Purpose - To obtain the destination port 
number for connecting two ports together. 

(3) Description of parameters - 
(a) prt - port number. 

(4) External references: 
(= ee © ohep anes 
(Dime Orstort 
(ei Activate pre 
Ce) Oe DE 
(en) detelo) elle 

(5) Process description: 

When a terminal initiates a local connection it first 
Semas "the control code ‘code _loct. The polling routine 
responds by sending back 'code _loc' and sets the state to 
'l_init'. In loc init the desired destination is expected 
from the terminal. That destination is sent to the 
concentrator like a control code. When loc init receives 
the number (one byte) it error checks it, then reacts 
according to the state of the destination PCB: 


lstn - switches both PCBs to local state and forms a 
Pi, OUtpDUtS null to both. 

local - changes the single PCB to local state and inserts 
iewinte the ‘group’, outputs nuil. 

1 init - changes the single PCB to lstn, outputs null. 

others - changes the single PCB to lstn. 


The null is a byte of all zeros to trigger the 
terminals into another phase of their execution. The null 
byte was chosen so a printer terminal would not print a 
character when receiving it. 
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Den LOeer 

(1) Type = Preceaune: 

(2) Purpose - To get and send data packetsto 
and from ports which are in local connections. Locag 
connections are established as well as the handling of 
control codes. 

(3) Description of parameters: 'Prt' 1seeme 
port number. 

(4) External references: 

(a)  sinpiee 

(b) SSOCtCstbiec 

(c) Give memory 
(d) Pcb cls 

(e) Give status 
Ch Sou tora 

(cg) Geeamenexy 
(hi) Geta ans 
(1) Send _trns 
(Jj) Osetbit 

(G:9)  @letlicheshe 


(5) Process description: 

During local transfers three conditions are checked on 
each poll of the terminal (1) control codes sent from the 
terminal (2) any packet to be cleared from the PCB and (3) 
any packets being sent to the terminal. Number 1 is 
handled similar to every other routine handling control 
codes, a case statement for all the options. Numbers 2 and 
3 are handled very similarly by use of a single bit for 
each terminal. Two fields in each PCB are used to track 
whether any packets are ready to be sent to the terminal 
and if a packet from the terminal has been sent to all the 
appropriate destinations. In brief, this is what happens: 
when a packet comes down from a terminal it is stored in 
the s_prtQ, but only one packet at a time can be stored 
there unlike the FTP process. The first byte of the packet 
indicates its destination. The bit corresponding to that 
destination is set in the ack field. The bit corresponding 
to the source is set in the snd field of the destination 
PCB. Therefore, the destination will know it has a packet 
to send its respective terminal by the bit in its PCB and 
the sender will know when the packet has reached its 
destination by the same bit being reset in its own PCB. 
This method works for one destination or many destinations. 
In the case of a broadcast packet, the bits in each PCB 
that is in the link or 'group' is set Similarly. The two 
bits mentioned are set for transmission of a packet, those 
Same two bits are reset by the receiving PCB once the 
transmission takes place. 

Example bit arrangement for transmission from terminal 11 to 
terminal 5: 
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$o------------- -- - ---- --- --------- + 
Beko O00 001000000000 =...(| Sender's PCB 

poe ------- - -- - - - - - - - - - - - - - -- - == + 

1 
ez 8 6S Oo 7S. 9 O81 2 8 4 

poo------ - -- - - - - - - - - - - - - - - - -- = - = + 
Snd JO 00 000000001000 ...] receiver's PCB 

pone ------- - -- -- - - - - - = - - - -------- 4 


om PACKAGE TCPsend. 


1. CONFIGURATION. 

Language .- Janus/Ada. 

Compiler version - 1.47. 

Linker version - 1.47. 

Target hardware - Intel 86/12A SBC. 
Operating system - CP/M-86. 

Package description: 

Package TCPsend implements the TCP protocol (see the 
TCP/IP handbook for details) for the sending of packets to 
foreign hosts. A TCP connection consists of three phases 
(1) handshaking to establish a connection, (2) established 
and (3) closing out a connection. Associated with the 
three phases are several states as described in the TCP/IP 
handbook. The data sending portion of the three phases are 
handled by the following three procedures: 
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eee SUBROUTINES. 
aa heb Open . 

(1) Type - Procedure. 

(2) Purpose - To prepare the TCP protocol of a 
'syn' packet to a foreign host as part of the three-way 
handshake. 

(3) Description of parameters - 

(a) prt - port number. 


(b) foreign _sock - the IP and TCP 
addresses in a record structure. 
(c) act - a boolean to set an active or 


passive connection. 

(ieee recep nade— cher local) TCP used in 
the connection is output to the calling routine. 

(e) sent - a boolean to Signal whether 
lower level processes sent the packet, ie. ETHERNET address 
of the foreign host is known. 

(4) External references - 

New n<ca piste ad. 

ioe Gee LCE naXx. 

(eye = gec memory - 

(ad) cksum. 

(e) ip send. 


oe 


(f) give memory. 
(g) inc anime 
(5) Process description: 

When a connection is requested from a higher level 
protocol (TELNET or FTP) a 'SYN' (synchronize) packet must 
be sent to start the handshake process. The 'syn' is a bit 
set in the control field of the protocol. A Tocalwiee 
address is obtained to use for the connection and stored in 
the TCB (transmission “contro eo cow The local TCP 
address must not be any of the reserved addresses, 
therefore, addressing begins at 0400 hex. Each subsequent 
connection will be incremented from the previous until FFFF 
hex at which time the address starts over at 0400 hex. A 
TCB table is created and initialized appropriately. If the 
connection is active then a memory block is obtained and 
the TCP portion of the block is completed. The block is 
sent to 'IP_send'. An active connection is when the 
foreign host is known and the connection must be initiated 
locally. A passive connection is one which waits for the 
other host to initiate the handshake. In either case, a 
TCB must be created. Even though no data from the user is 
sent with this procedure, the 'syn' bit is considered data. 


b. TCP send. 
(1) Type - Procedure. 
(2) Purpose - To prepare the TCP protocol faa 
data packet to be sent to a foreign host. 
(3) Description of parameters - 

(a) indx - a memory block index. 

(b) data_len - amount ofdata sending. 

(c) tep_ad - local TCP addressUseaiiee 
Pocat. the PCB. 

(d) sent - a boolean to signal whether 
lower level processes sent the packet, ie. ETHERNET address 
of the foreign host is Known. 

(4) External references - 
(a) get TCB ndx. 
(Db) Sine paisa 
(c) cksum. 
(d) ip send. 
(5) Process description: 

When a connection is established then all data that is 
sent to the foreign host is sent by TCP send. Appropriate 
information is obtained from the TCB to complete the TCP 
portion of the packet to be sent. Once the packet is sent 
the TCB is updated to reflect current status. The packet 
is then placed in the retransmission queue. For a good 
explanation of the necessary protocol see the TCP/IP 
handbook. 
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Sree ber Close. 
(1) Type - Procedure. 
(2) Purpose - To prepare the TCP protocol of 
a 'fin' packet to be sent toa foreign host. 
(3)Description of parameters - 
(Veep cma loca! BCP acdcdress™used Co 
Mocat the TCB. 
(4) External references - 
(a) get_TCB ndx. 
(b) get_memory. 
(c) cksum. 
(d) ip send. 
(e) give_memory. 
(5) Process description: 

When a connection is to be closed a 'FIN' is Sent much 
like a 'SYN' at the beginning. This procedure sends a fin 
and changes the state of the connection appropriately. 
Like TCP _ send, all the necessary protocol information is 
inserted in the outgoing packet. 


ad. Check retrnsQ. 

(1) Type - Procedure. 

(2) Purpose - To check packets on the 
retransmission queue for retransmission if the foreign host 
does not acknowledge receipt. 

(3) Description of parameters - 

(ajeGeCp Vad eocd | ilermwadaressused to 
Mecac the TCB. 
. (4) External references - 
(al Seen Leb enc 
(3) EERE pe. 

(5) Process description: 

Even though ETHERNET is highly reliable there is no 
guarantee that a packet gets to its destination. The 
TCP/IP protocol allows for lost packets and is able to 
recover from it. One of the requirements for this amount 
of robustness is a retransmission queue to retransmit 
packets that have not been acknowledged. To implement the 
queue we save all outgoing packets sent by TCP send ina 
queue in the TCB. When acknowledgements come in the 
packets are removed from the queue. During the polling of 
the ports every ‘loops _to_poll' is used to check the 
retransmission queue for the connections in TELNET and FTP. 
If a packet remains in the queue for 10 of these checks 
then it is retransmitted. 


D. PACKAGE IPsend. 
1. CONFIGURATION. 
a. Language - Janus/Ada. 
b. Compiler version - 1.47. 
c. Linker version - 1.47. 
dad. Target hardware - Intel 86/12A SBC. 
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e. Operating system - CP/M-86. 
f. Package description: 

Package IP send is used to implement the INTERNET 
Protocol in outgoing packets. The IP protocol as Noa 
major influence in the operation of our connections since 
it is designed mainly for crossing to different networks by 
breaking up packets into smaller ones or combining packets 
into bigger ones. Since we are uSing only ETHERNET the IP 
portions has no significance other than having to implement 
it because the other hosts on ETHERNET use it. 

2.) SUBROULINES: 
aie Ee Se mere 
(1) Type - Procedure. 
(2) Purpose - To implement the IP protocol of 
in outgoing packet. 
(3) Description of parameters - 
(a) inx - memory block index. 
(b) rslt - a boolean to Signal whether 
lower level processes sent the packet. 


(4) External references - 
(a) arr tournee 
(b) cksum. 
(c) eth send. 
(5) Process description: see package 


description. 


E. PACKAGE ETHsend. 
1. CONFIGURATION. 
Language ~- Janus/Ada. 
Compiler version -. 1.47. 
Linker version -~- 1.47. 
Target hardware ~- Intel 86/12A SBC. 
Operating system - CP/M-86. 
Package description: 

Package ETHsend is used to implement the ETHERNET 
protocol of a packet. To send a packet over ETHERNE@eag 
ETHERNET address must be used. A table is maintained with 
currently known addresses. ETH_snd checks the table for 
the ETHERNET address. If found, it sends the packet out, 
if not found it sends out a special broadcast packet to all 
hosts on the ETHERNET requesting the particular host with 
the IP address listed to report back its ETHERNET address. 
If the latter case occurs then the original packet is 
effectively lost and will have to be sent again later. 
This normally occurs when connecting to a host for the 
first time since the system was re-booted. 


me 200 f 


The control program executing in the concentrator can 
be thought of as two independent processes, one for sending 
packets out and polling the terminals, the other for 
receiving packets from ETHERNET and distributing them to 
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the appropriate places. The receiving process, however, 
sends acknowledgements out on ETHERNET as well. 


F. PACKAGE rcv. 
1. CONFIGURATION. 
a. Language - Janus/Ada. 
b. Compiler version - 1.47. 
c. Linker version - 1.47. 
d. Target hardware - Intel 86/12A SBC. 
e. Operating system - CM/M-86. 
Ee Package description. 

Package Rev is the first high-level routine that 
receives packets from the ETHERNET. Ntrpt_ hdl (interrupt 
handler) is the procedure at the interrupt vector whenever 
an interrupt occurs. The only interrupt implemented is that 
of the NI3010 controller board. There are four cases for 
an interrupt by this board (1) upon receipt of a packet 
(rcv_pck), (2) when the DMA transfer is complete after 
receiving a packet (rcv_DMA dn), (3) when the DMA transfer 
is complete when transmitting a packet (tx _DMA_dn), and (4) 
when the DMA transfer is complete when transmitting a 
packet after having already interrupted from a rcv_DMA dn 
(disable). The difference between 3 and 4 will be 
discussed shortly. 


The programming of the NI3010 board for receiving and 
transmitting packets is discussed in the manufacturer's 
hardware manual. We have modified the manufacture's 
recommended algorithms in order to enhance concurrent 
processing. For instance, rather than have the 
concentrator idlely loop waiting for a DMA transfer to end 
we continue processing other procedures until an interrupt 
occurs to let us know the process is complete. ie, 
implement this strategy fully an interrupt labeled 
'disable' was created to allow transmissions from ether 
Side of the interrupt (remember the two independent 
processes in the controlling program). Lets discuss these 
four different interrupts separately: 


iaeerrupt Discussion 

mew, pck The NI3010 is initialized to start with this 
type of interrupt. If a packet is received 
ai iter LUpEMoceurGe itiinandlang this type, 


a memory block is gotten for which to do the 
DMA transfer to. The address of the memory 
block is sent to the NI3010 board and the 
next type of interrupt is enabled, 
rcv_ DMA dn. 

rcv_DMA_dn Once this interrupt occurs the received 
packet can be looked at to determine where to 
send it for processing. As a result of this 
packet, another packet may be transmitted out 
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H. PACKAGE IPrec. 
1. CONFIGURATION. 
a. Language - Janus/Ada. 
b. Compiler version - 1.47. 
c. Linker version —#1-472 
ad. Target hardware - Intel 86/12A SBC. 
e. Operating system - CM/M-86. 
f. Package description. 

Package IPrec checks the IP protocol of incomming 
packets for appropriate fields being correct including the 
local IP address. If everything is correct it passes the 
packet on up to TCPrec. 


Ll. PACKAGE PCPrec- 
1. CONFIGURATION. 

a. Language - Janus/Ada. 
b. Compiler version - 1.47. 
c. Linker version - 1.47. 
dad. Target hardware - Intel 86/12A SBC. 
e. Operating system - CM/M-86. 
f. Package description. 

Package TCPrec is the most complex package in the 
control program due, primarily, to all the checks it must 
make for any incomming packet. The best source of 
information about what checks are made is the Internet 
Protocol Transition Workbook. Two checks that are omitted 
in our implementation are the precedence and security 
checks. In addition, we do not test the checksum fields 
Since ETHERNET has a reliable CRC field that assures proper 
transmissions. The basic functions of TCP rec is to update 
the TCB table of the respective connection, send proper 
acknowledgements and send any data up to the respective PCB 
for that connection. 


2. ~ SUBROUTINES. 
a. Conv _ blk snd. 
(1) Type - Procedure. 
(2) Purpose - To take a received packet and 
reverse all the fields for transmission back to the sender. 
(3) Description of parameters - 
(a) blk - memory block index. 


(bob) sent - boolean to indicate if the 
packet was sent. 
(4) External references - 
(a) upper nibble. 
(b) cKsum. 


(c) ip send. 
(d) give memory. 
(5) Process description: 
This procedure uses the memory block of an incomming 
packet to send a reply by changing the destination fields 
to source fields and vice versa. 
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b. Send ack. 
(1) Type - Procedure. 
(2) Purpose - To send an acknowledgement to a 
received packet. 
(3) Description of parameters - 
(a) blk - memory block index. 
(6) nr - TCB index. 
(c) sent - booleanto indicate if the 
packet was sent. 
(4) External references - 
(a) cksum. 
(ob) ip send. 
(c) give memory. 
(5) Process description: 
To acknowledge receipt of a packet this procedure takes 
the appropriate fields out of the TCB to fill out a packet 
that has no data but simply acknowledges new data received. 


Greeees closing. 
(1) Type - Procedure. 
(2) Purpose - To set the PCB to closingwhich 
allows clearing of the receive queues and termination of a 
connection. 
(3) Description of parameters - 
(Am prt DPOGeEenUMber. 
(4) External references - none. 
(5) Process description: ; 
PCB clsing - Upon receipt of a 'FIN' the PCB state is 
set to closing. Closing allows any undelivered data in the 
port queue to be sent up to the terminal. 


Ge Update retrnsc. 
(1) Type - Procedure. 
(2) Purpose - To clear out any acknowledged 
packets from the retransmission queue. 
(3) Description of parameters - 
(a) nr - TCB index. 
(b) ack - lastest acknowledgement number. 
(4) External references - give memory. 
(5) Process description: 

This procedure loops through the linked list of memory 
blocks on the retransmission queue looking for all packets 
that have been acknowledged with the lastest acknowlegement 
number. 


J. PACKAGE PCBrec. 
1. CONFIGURATION. 
a. Language - Janus/Ada. 


b. Compiler version 1.47. 
ee Jetnker version -l.47. 
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dad. Target hardware - Intel 86/12A SEC. 
e. Operating system - CP/M-86 


2. SUBROUTINES. 
a.  PCE@rCY. 

(1) Type - Procedure. 

(2) Purpose - To queue up thereceived data 
packets for further transmission to the respective port. 

(3) Description of parameters - 

(a) inx - memory block index. 
(>) prt - pore nunbear- 

(4) External references —- none. 

(5) Process description: Receipt of a packet 
containing data to be sent to a terminal requires storing 
the memory block containing the packet in a queue so that 
subsequent polls of the PCB in 'poll' will find the packet 
and send it to the terminal. Since two connections can 
exist at the same time to the same port, PCB rec must 
determine if the data is for the first connection or 
second. Two queues are used, 'prtO' and *s prt’. 


D. |) AGVSPeBescace: 
(1) Type ~- Procedure. 
(2) Purpose - To change the PCB stateweae 
e1ther rlodr of eet. 


(3) Description of parameters - 
(a) nr - port number. 
(4) External references - none. 


(5) Process description: 

Adv PCB state - When a packet is received with a 'SYN' 
bit set then this procedure is call. If the PCB Staucmume 
r init or f init then the state is advanced to them, 
respective established state. 


K. PACKAGE CONVBLK 


1. CONFIGURATION. 

Language - Janus/Assembly. 

Compiler version 1.4.6. 

Linker version 1.4.7. 

Target hardware - Intel 86/12A SBC. 

Operating system - CP/M-86 
| Comments - Package Convblk is the smallest and 
Simplest package in this system. It is used to implement 
an overlay while evading the strong typing of the Ada 
language. 
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2: ) SUBROUTINES 
a. Conv gol 
(1) Type - Procedure. 
(2) Purpose - To allow an overlay type 
conversion on the data structure 'mem' allowing two 
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different packet formats to be handled by the same physical 
memory area. 
(3) Description of parameters - 
(a) 'Nr': The memory block array index to 
be used as an ETHERNET packet. 

(4) SExscernal references: “ehwrcy.: 

(5) Process description: When a packet is 
received it can be one of two kinds. The memory blocks 
which a packet is put inis a record with fields for one of 
the two types. To transform a memory block to the other 
type a simple jump command is executed in assembly 
language. A procedure calls the assembly routine with a 
memory block as the parameter. The assembly routine jumps 
to another high-level Ada routine that expects a memory 
block of the other’ type to be passed in. None of the 
procedures know the difference and the transform is made. 


L. PACKAGE NTRPTHD 


1. CONFIGURATION. 

a. Language - Janus/Assembly. 

b. Compiler version 1.4.6. 

c. Linker version 1.4.7. 

dx Target hardware - Intel 86/12A SBC. 

e. Operating system - CP/M-86 

& Inttialization=- The inatialization routine 
places the 20 bit address of the interrupt routine in the 
interrupt vector section of memory. 


2Z2- SUBROUTINES 
a. Assy ntrpt_hdl 

(1) Type - Procedure. 

(2) Purpose - Save the state of the machine 
and call the routine to resolve the ETHERNET controller 
icerrupt. 

(3) Description of parameters - NA 

(4) External references: Ntrpt_hdl 

(5) Process description: The interrupt 
routine saves all the registers then calls the high-level 
routine 'rcv' to handle the interrupt. Remember, when a 
Janus/Ada assembly package first executes, any assembly 
code not jumped over is executed before any main program is 
begun. 


M. PACKAGE LIB 


t. CONFIGURATION. 
a. Language - Janus/Ada 
b. Compiler version 1.4.7. 
c. Linker version 1.4.7. 
dad. Target hardware - Intel 86/12A SBC. 
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e. Operating system - CP/M-86 

f. Comments - Package Lib contains all the high- 
level library routines we have developed for the system. 
Just about every other package 'withs' the lib package and 
uses one or more of the procedures. 


2. SUBRGUTINES 
a.  GemEmenory 

(1) Type - Procedure. 

(2) Purpose - Get _ memory is called when a 
process has a need to store a packet in the main memory of 
the concentrator. Get memory allocates memory blocks and 
performs other memory management functions. 

(3) Description of parameters: 

(a) 'Next' is the array index of the 
memory block requested. If 'next' is returned as '0', no 
memory is available. 

(4) External references: NA. 

(5) Process description: To allocate memory 
in which to store packets we have declared an array of 
records, the records being individual memory blocks. 
Pointers are used to keep track of which blocks are in use 
and which are not. The get memory routine takes the first 
available block (if any) and returns the index to that 
block. It also increments the used_b1lk variable which 
counts how many blocks are in use at any given time. The 
routine also manages the rcv_wnd variable which is used to 
tell foreign hosts how much data we are willing to accept 
at any given time ina packet. As soon as the used blocks 
1s above 50% of the total number of blocks available, the 
window is changed to zero indicating the remote should not 
send anything else until we have a chance to clear out 
memory. 


b. Give memory 

(1) Type - Procedure. 

(2) Purpose - Give memory is called when a 
process has completed processing of all data within a 
memory block and is ready to return that block to 
availability. Give memory inserts the index to the block 
into the availability queue and performs other memory 
management functions. 

(3) Description of parameters: 

(a) 'Inx' is the array index of the 
memory block to be returned. 

(4) External references: NA. 

(5) Process description: - As Wwitee 
get memory, the give memory procedure manages the rcv_wnd, 
only the window is opened back up to normal size (512 
bytes) when the used_blk variable is 33% of the total. 
'Inx' is inserted in the front of the queue and the 
used blk counter is decremented. 
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¢. Perf cmd 

(1) Type - Procedure. 

(2) Purpose- To send an instruction to the 
ETHERNET controller board. Commands and procedures are 
detailed in the Interlan ETHERNET Controller Handbook. 

(3) Description of parameters: 

(a) 'Cmd' is a byte representing an 

ETHERNET command. 

(4) External references: 


(alm LDpre 
(pimoTStbit 
(5) Process description: - To instruct the 


NI3010 board to perform a command the command register of 
the board is written to. The interrupt register is then 
read until bit zero is set, at which time the status 
register is read. If the status register is greater than 
one an error has occurred in the board. 


Ol ee big op aie) .< 
(1) Type - Procedure. 
(2) Purpose - To initiate a DMA transferfrom 
memory in the 86/12A to the ETHERNET controller board. 
(3) Description of parameters: 

(a) 'Ad' is the address of the first byte 
of data to be transferred. 

(b) 'Size' is the number of bytes to be 
transferred. : 
(4) External references: 

(a) Outprt 

(b) oTfstbit 
(5) Process description: - If the state of 
the controller is 'disable' then the input address is 
converted into the 20 bit address necessary to perform DMA 
transfer over the MULTIBUS and written to the proper ports 
to allow immediate transfer. Otherwise, this procedure 
wait for the state to change before performing its transfer 
function. The algorithm for the former case is outlined in 
the manufacture's manual for the NI3010 board. 


eo Resolve ad 
(1) Type - Procedure. 
(2) Purpose - Convert the INTERNET addressof 
an alleged ETHERNET host into an ETHERNET address. 
(3) Description of parameters: 

(a) 'Ip_ad' is the INTERNET address to be 
resolved. It is 'in out' status to save space and is not 
modified by this procedure. 

(b) ‘Eth _ad' is the address of the 
ETHERNET controller board assigned to this host. The 
address table is a dynamic structure maintained by another 
procedure. 
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(c) 'Rslt' indicates whether the IP 
address was found in the table or not. 
(4) External references: NA. 
(5) Process description: - This process looks 
up the input IP address in the dynamic address table 
'ad tbl' which is declared in Globall. 


g. Get tcb ndx 
(1) Type - Precedumer 
(2) Purpose - Establish a one-to-one mapping 
between local TCP addresses in use and indices to the TCB 
table. More simply, to find the TCB index for a connection 
from the local TCP address of the connection. 
(3) Description of parameters: 
(a). '‘Arr' is the TCP address to be used 
to find the TCB table entry. 
(b) 'Index' is the array index of the TCB 
entry corresponding to the input TCP address. 
(ce) 'Found' indicates whether the TCP 
address was found or not. 
(4) External references: NA. 
(5) Process description: - The TCP address to 
TCB index mapping is accomplished by use of a hashing 
EUNCE don. 


hes PED ceils 

(1) Type = Prcceaure. 

(2) Purpose - Reinitialize and normally 
terminate a Port Control Block entry. 

(3) Description of parameters: 

(a) 'Prt_num' is the PCB table index to 

be closed out. 

(4) External references: Outprt 

(5) Process description: - The pstate, 
time wait, and buf_in_cnt fields in the PCB record are 
reinitialized and a control character is sent to the Z-100 
to ensure termination. 


1. Pébwabore 
(1) Type - Procedure. 


(2) Purpose - Reinitialize, clear out data and 
transmission ques, and terminate a Port Control Block 
entry for the specified port. 

(3) Description of parameters: 


(a) 'Prt' is the PCB table index to be 
closed out. 
(4) External references: 
(a) Ss OucprEe 
(b) Give memory 
(5) Process description: Pcb abort will return 
memory locations attached to the port's primary queue, 
change the state to allow final close out, reinitialize the 
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time wait field in the PCB entry, and send the close code 
momtmeeZ—-100. The state is set to Closing to allow an FTP 
process to clear data from its secondary connection before 
the memory is returned. 


Sho 9 ALS Io) ellevepaie 

(1) Type - Procedure. 

(2) Purpose - Clear out the retransmission 
queue and reinitialize the port number field of the TCB 
entry for a TCP connection that is being closed. 

(3) Description of parameters: 

(a) 'Ndx' is the index to the TCB table 
entry to be closed out. 

(4) External references: NA. 

(5) Processdescription: The retransmission 
queue is traversed from front to rear and each memory 
location returned. The PCB port number field is set to 
'99' to indicate the port is inactive. 


Ke, AGElVvate (pre 

(Hs Lype — Procedure. 

(2) Purpose- Add a port that has requested 
service from the concentrator to the active ports list. 
Inactive ports are only polled every 10,000 or so loops for 
activity while active ports are polled on each loop. 

(3) Description of parameters: 

(a) 'Prt' is the port number to be 
activated. 

(4) External references: NA. 

(5) Process description: The port specified 
1s added to the queue to be polled. 


L. Give status 

(1) Type - Procedure. 

(2) Purpose - Supply information concerning 
the activity within the concentrator to the user and 
maintenance programmer. 

(3) Description of parameters:'Port' is the 
terminal number. 

(4) External references: 

(ae Cetrecbanax 
(b) Get _memory 
CG) Outpt 

(b) Osetbit 

(5) Process description: 

This procedure produces a packet which contains the 
state of execution for all the terminals and includes a 
meeeus block from the NI3010 board for ETHERNET 
transmissions. Codes are used in the packet to identify 
the various states of the PCBs and TCBs. The first byte in 
the packet is the number of terminals there are, enabling 
various implementations of the system. Status can only be 
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requested by a terminal in the local or listen state. 
Interface to the Concentrator 


To understand the interface to the concentrator 
requires understanding the RS232 serial communications 
hardware. 

terminal or computer] | concentrator 
| | (connected via modular 
| |phone connector) 


signal gnd|<--7--------- >|signal gnd 
data set ready|<--6------- <--|data terminal ready 
data term ready|-->20-------- >|data set ready 
receive |<--3------- <--|transmit 
transmit | -->2--------- >| receive 
shield gnd|l------------ 1|/shield gnd 
carrier detect|<--8-| |---->|carrier detect 
clr to send|<-~-5=| |---->|clr to send 
req to send|-->4-| | --<--|req to send 
ring indica torn a n/a| ring Indilcacorn 


The line numbers represent pin connections on a 25 pin 'D! 
connector. 


Since communication is bi-directional there is no 
master-slave relationship or DCE-DTE correspondence between 
the concentrator and the connected computeues 
Communication comes in two forms from each end of the line: 


1. Control codes to effect action or pass 
acknowledgement. Control codes are sent at any time 
necessary by simply writing to the data port of the 
connected UART. See globall.spc file for a list of control 
codes. 

2. Packets of data to be sent on to a destination. 
Packets are sent with the use of handshaking signals. 
Because the communication is bi-directional and control 
codes are used, some rather unique problems had to be 


overcome. To send a control code at any time tie 
transmitter had to be available without relying on the 
receiver to enable it. To receive control codes at any 


time the receiver had to be enabled at all times. 
Therefore the request to send (RTS) and clear to send (CTS) 
Signals were not utilized due to their side effects. One 
Signal line is used for a dual purpose of requesting to 
send data and acknowledging preparation to receive data. 
This signal line is the Data Terminal Ready (DTR) out line 
which is connected to the Data Set Ready (DSR) in line. No 
other signal line is available on the RS232 in our hardware 
configuration that could function as one of these purposes 
without having a side effect. Therefore, the problem was 
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to use the signal line without it being mistaken for the 
wrong Signal. For example, if the concentrator wanted to 
send data to one of the terminals it would set DTR. If 
that terminal also wanted to send data to the concentrator 
it would also set DTR. Receipt of DSR on the other end 
would tell the receiver that its DTR has been acknowledged, 
therefore both the concentrator and terminal would proceed 
to transmit data at the same time. Of course the data 
would be lost in this situation. A means was devised to 
ensure that receipt of a DSR could only mean one thing at 
that particular moment. Two common assembly routines was 
devised for such purpose. 


N. PACKAGE LOCAL. 


1. CONFIGURATION. 

Language - Janus/Ada. 

Compiler version 1.5. 

Linker version 1.5. 

Target hardware - Zenith model 100. 
. Operating system - MS-DOS. 

Package description: 

This package initializes memory, sets the interrupt 
mask, gets the login name, establishes connections, polls 
the keyboard for user inputs, polls the RS232 port for any 
Beackets or control codes, polls the local control blocks 
for any needed actions, and polls the transmission queue 
for outgoing packets. - 


rh 0 ano M 


ea 6h DUSROUTINES. 
a. Handle kybd_ input. 
(1) Type - procedure. 
(2) Purpose - identify input characters from 
the keyboard and process as necessary. 
(3) Description of parameters - 
(a) ch - character to process. 
(4) External references - 
(meet memory 
(ome DECMpe:. 
(ej paleaa ca. 
(d) give memory. 
(e) deactivate. 
(£) cksum. 
(ope Nc OrmaG1on. 
Gijeenpuliaan. trnso. 
(1) activate. 
(5) Process description: 

Inputs are handled from the keyboard as bytes and are 
processed in accordance with the state of the current LCB 
(Current means the prompt number or destination terminal 
number). A case statement is used for the state of the 
LCB, then, within each case is another case statement for 
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the byte input. Commands are initiated and states are 
changed as necessary depending on the input. 


b. Handle incoming _packet. 
(1) Type - Precedure- 
(2) Purpose - To act on any packets that awe 
received over the RS232 port. 
(3) Description of parameters - 
(a) blk - a memory blockcontaining a 
packet that was received. 
(4) External references - 
(a) addy cover 
(b) activate. 
(c) prntdata. 
(ay create err 
(e) put_in_trnsqQ. 
(f) receive file. 
(g) close FCB. 
(hh) “pEOnpic. 
(1) give _memory. 
(5) Process description: 

This procedure processes any packets received from the 
RS232. DOGE~.@r- Ca lel Swan appropriate procedure to handle the 
packet. The key to the processing ls the type field in the 
packet and what state the LCB is in of the source terminal. 


c. Established. 
(1) Type - Procedure. 
(2) Purpose - Polls the keyboard, LCBs, RS232 
port and transmission queue. 
(3) Description of parameters - none. 
(4) External references - 
(a) give memory. 
(b) close file. 
(CC) i pEemnpiE. 
(A)\a See serio 
(e) send trns. 
(f) get _memory. 
(5) Process description: 

This process is continually polling all connected 
ports for any needed processing. A continual polling 
routine such as this allows many transactions to be carried 
out simultaneously because the user is not locking up the 
system with slow inputs from the keyboard. One of the 
primary concerns was to maintain a continuous poll of the 
RS232 port for any incomming packets which frees up the 
concentrator process once a packet is sent. During the 
polling process, appropriate routines are called when 
action becomes necessary. 
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ope PACKAGE FILEXFER. 
1. CONFIGURATION. 
a. Language - Janus/Ada. 
baw Ccomplier version 1.5. 
c. Linker version 1.5. 
ad. Target system - Zenith model 100. 
e. Operating system - MS-DOS. 
f. Package description: 

This package handles all commands that require file 
access. A parser is implemented to parse a user input into 
8 character filenames and 3 character extentions. The 
status of file transfers are maintained in the LCBs. If a 
file data packet is sent to a single terminal it is also 
queued until an acknowledgement is received indicating 
proper transmission; else the packet is set up for 
retransmission. 


ee SUBROUTINES. 


a. Parse. 
(1) Type - procedure. 
(2) Purpose - To parse a user's input into 


filenames for access to the system disk files. 
(3) Description of parameters - 
(a) blk - a memory block containing the 
user's input. 
(b) FCB - a file control block. 
(c) EOL —- End of Line boolean output. 
(4) External references - 
(apo Capital. 
(5) Process description: 

When this procedure executes, it takes the user input 
from the memory block and puts a pointer on the beginning 
character, one on any decimal point designating the 
extension, and one on the filename separater (',') or at 
the end of line. The process then begins to validate the 
filename and writes it to the name field of the FCB. Once 
the name is finished, the extension is validated the same 
way. This procedure was written because the CP/M operating 
system does not have a parse system call as the MS-DOS 
systemhas. It is desired to have the local system written 
for CP/M-86 as is MS~DOS. 


Bree Deateunc b>. 
(1) TYPE - procedure. 
(2) Purpose - To initialize a file control 
block and open the file. 
(3) Description of parameters- 
(a) blk - a memory block containing a 
packet received. 
(4) External references - 
(aj putin trnso-. 
(6b) prntdata. 
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(4) External references - 
(a) setDMA. 
(b) read file. 
(c) prntdata. 
(d) close Giller 
(e€) give memory. 
(5) Process description: 

This procedure reads data from a file that is open and 
displays the text of the file on the screen until an ascii 
character 'tab' is found or end of file. If end of ae 
then the file is closed. 


P. PACKAGE NAME: FTP. 


is CONFIGURATION 
a. Language: JANUS/Ada 
b. Compiler version: 1.5.0 
Cc. _Dinker versioniees 5.0 
ad. Target hardware: Zenith model 100 micro- 
computer 
e. Operating system: 
(1) Name: MS-DOS 
(2) ~ Versiton: 992.11 


2. SUBROUTINE 


ele Pie. 
(1) Type subroutine: Procedure. 
(2) Purpose: This procedure drives the 


remote file transfer process on the NPS local area network. 
A Signal and an address are sent to the concentrator 
triggering the FTP command connection establishment. The 
command/reply sequence then drives the process. 
(3) Description of parameters: NA. 
(4) External references: 
(a) Lib.send_cmd 
(b) Get_ip.get_addr 
(c) Lib.process reply 
(d) Lib.make reply 
(e) Lib.get dataline 
(f) Asmlib.send _trns 
(g) Asmlib.tstbit 
(1) Biteaagome 
(J)  IO.open 
(k) IO.write 
(1) IO.close 
(m)  IO.ioresult 


(5) Process description: The IP address of 
the destination is returned by get address. Once the 
control code has been sent to and answered from the 
auxillary port, the address is sent out the auxillary port. 
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The process then becomes a cycle of sending commands and 
processing replies. The dataline received may contain 
either data or an FTP reply. FTP must inspect the first 
character of the dataline to determine its content. That 
first character is set by the concentrator before the data 
is transmitted. If irregularities occur, 'get dataline' may 
insert a control code in the first byte. A control byte is 
also attached to outgoing data. 

The replies and commands used in this implementation of 
FTP are a subset of the system specification in the 
Stanford Research Institute, RFC-765. The possible 
responses to commands listed on pages 46 and 47 of RFC-765 
are followed very closely. If a reply is received that is 
not allowed in response to the command issued most 
recently, the reply .is ignored. This allows this system 
to interface with different implementations of FTP. The 
first acceptable reply to a command drives the system. 

The state diagram for command/reply exchange from [pg. 
55 of RFC-765 ]} of the thesis and reproduced below, is 
followed as closely as possible. Variations to this diagram 
from the remote site have been detected when in 
communication with the VAX when a second 500 level reply is 
sent to clarify the first 500 level reply. 
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x 
*Begin 

a | | | 
= | _ = | 2 | 
> | cmd | er > | | | 
>| a> > > | W | | S a 
z | | |-->| a | | | 
. “ | 21 | | 4,5 | | 
- | at | | | 
‘ | | 3 | | | | 
‘a oe a | =e F _ 
. | | 
*cmd = Sendan FTPcommand. 

* W = Wait for reply. 

* S = Command executed successfully. 

* F = Command failed. 

* ie, 3,4,5 = The first digit of the reply received. 

® 
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The cycle ends when the user enters 'quit' and the quit 
command is sent or when the connection is aborted by the 
remote host. 
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Q. PACKAGE NAME: Lib.pkg 


1. CONFIGURATION 
a. Language: JANUS/Ada 


b.’ Compiler Versicn- er o7e 
c. Linker verstonvaee ooo 
ad. Target hardware: Zenith model 100 micro- 
computer 
e. Operating system: 
(1) Name: MS-DOS 
(2) Version: 2.11 
Ze Subroutines. 


a. Send_cmd. 
(1) Type subroutine: Procedure. 
(2) Purpose: Send_cmd prepares a string in 
FTP command format and passes that string out the auxillary 
Pere. 
(3) Description of parameters 
(a) ‘'Cmd'is the enumerated type that 
represents the FTP command to be sent. 
(ob) ‘'Parameter'is the string Gia 
represents the FTP paramater that accompanies '‘'cmd'. 
(4) External references: 
(a) Asmlib.send_trns 
(Db) Bie rnpert 
(c) Strlib.length 
(d)  /Strlibmeinsert 
(e) “Biter estiaits 
(£) Asmlib.byte to chr 


(5) Process description: Send_command calls 
internal subprocedure ‘'convert' to convert the enumerated 
type 'cmd' into a string, concatenates that string with the 
input string 'parameter', attaches a control byte as the 
first character, and sends the resultant string out the 
au <del aisy = pOwrt. 


b. User_options. 
(1) Type subroutine: Procedure. 
(2) Purpose: User options is called to 


allow a user to enter his desired file transfer or 
maintenance request. The FTP command corresponding to that 
request is sent. 
(3) Description of parameters 
(a) 'Opt' represents the option that 
the user selected and the command that this procedure 
transmitted. 
(4) External references: 
(a) IO.is open 
(b) IO.close 
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(c) Funcs.get_filename 
(ene s.7er Ope 
fSlerUMecs.get parame cer 
(f£) IO.ioresult 
(g) IO.purge 
(h) IO.open 
(1) Lib.send_cmd 
(Jj) I0.create 
(5) Process description: User options is 
called when a reply is received that does not in itself 
require some action be taken. It is expected that if this 
procedure is called, the user is logged in to the system. 
From here, the user can request a file transfer, change 
directory on the remote host, list the directory on the 
remote host or terminate the process. The user_options 
procedure also opens and closes locfile for retrieving or 
sending data to/from the remote host. 
User options displays the options that a user may 
select, and prompts the user for a selection, attains a 
parameter for the selected option and sends the command. 


G oend data 
(1) Type subroutine: Procedure. 
(2) Purpose: Send data to a remote host on 
ETHERNET. 
(3) Description of parameters 
(a) 'Lst_cmd' is the variable that 
keeps track of the state of this user FTP process. 
(4) External references 
(a) OU CDOETC 
(bb) > een ors 
(eye - eSepit 
(d) keypress 


(e) getch 
(f) send_cmd 
(g) read 
(iiesend or file 
Gry ~eoLr 
(J) send_trns 
(k) close 
(5) Process description: Send data is 


passed control after a reply has been received indicating a 
data connection is being established. Using control code 
communication with the concentrator, send_data determines 
when the connection has been established, and sends the 
data through the auxiliary port. 

The data is transmitted in packets of 512 bytes because 
this is the max packet size of transmission for the 
concentrator. The user is queried to determine if the file 
to be transmitted is a text file to allow correct end of 
file identification. 


Iblis: 


qa.  Getrdawa 

(1) Type subroutine: Procedure. 

(2) Purpose: Get _data is the routine that 
accepts data from the remote site and dispenses it 
appropriately. 

(3) Description of parameters 

(a) 'Opt' represents the last command 
that was transmitted. 

(bob) 'Ctr' is the number of bytes passed 
in the parameter ‘byte array”. 

(c) 'Byte array' contains the data 
received from the remote site. 

(4) ° External references: 

(a) IO.write 
(bo) Asmlib.prntdata 

(5) Process description: Get data 
identifies the data as a directory listing to be printed on 
the console or as file data to be written to the q@iobam 
file 'locfile' by the last command that was transmitted 


(‘lst _cmd'). The file is opened in ‘user _ options' and 
closed in ‘process reply' when a reply indicates the 
transfer is complete. If abnormal termination occurs the 


file is clesedsin sere 

Data may be several packets long. The display of a 
listing on the console will be continuous from packet to 
packet. The opening and closing of ‘locfile' im 
'user options' allows the data from subsequent packets to 
be added at the end of the file. 


e. Get dataline. 

(1) Type subroutine: Procedure. 

(2) Purpose: Get dataline, receives datawand 
control characters from the concentrator and passes the 
results to the caller. 

(3) Description of parameters 

(a) 'Dataline' contains the data 
received from the concentrator. 

(b) 'Ctr' is the number of bytes passed 
out in the parameter 'data_ line’. 

(4) External references: 

(a) IO.Keypress 

(b) I0.is open 

(c) IO.close 

(d) Asmlib.get_ trans 
(e) Asmlib.prntdata 
(f) Bit.outpeme 

(g) Bit.tstbit 

(h)  Typpkes loemmle 
(1) -Bit. inporr 

(Jj) <Asmlib.getch 
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(5) Process description: Procedure 
Pieeeadacaltine’ willowait for the user to enter control 
right bracket, timeout to be reached, a control character 
received, or data received from the concentrator. Timeout 
does not terminate the process but is included to allow 
future expansion. Its major function is to clear any 
handshaking signals that may have been inadvertantly set. 
If a control character is received or control right bracket 
detected, the first character of 'dataline' is set to the 
appropriate control code. Code abort tells the caller to 
stop the process immediately and code cls means terminate 
the process normally. 


foe iaice: Geply. 

(1) Type subroutine: Procedure. 

(2) Purpose: Make reply receives the reply 
as an array of bytes and converts that array into an 
integer 'reply' and a string 'parameter'. The results are 
returned and displayed on the console. 

(3) Description of parameters 

(a) 'Dataline' contains the data bytes 
from the concentrator that are the FTP reply and parameter. 

(b) 'Ctr' is the number of bytes in the 
parameter 'data_line'. 


ey ‘'Reply't is the integer 
representation of the FTP reply identification number. 
(d) 'Parameter' is the string 


representation of the FTP parameter to the reply. 
(4) External references: 
(a) Asmlib.prntdata 
(b) Asmlib.byte to _char 
(eject. lib. insert 
(hemoerlib.str to int 
(5) Process description: The conversion of 
fee fLirst fifth through last bytes to a string is done 
first. Each byte is converted to a character and inserted 
in to the string. The second through the fourth bytes are 
converted into an integer by converting each byte intoa 
character, adding the three characters to a string and 
converting the string into an integer. The first byte in 
the array is a control code. 
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(1) Type subroutine: Procedure. 

(2) Purpose: Process reply is the workhorse 
of FTP. All replys received from the concentrator are 
passed to this process for action. This procedure must 


determine what command to send if any command is required. 
(3) Description of parameters 
(a) meepeey'=S1s the integer 
representation of the FTP reply identification number. FTP 
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replies are described in detail in [Internet Protocol 
Transition Workbook, pg. 278-281]. 

(b) 'Parameter' is the Stra 
representation of the FTP parameter to the reply. This 
parameter is not generally used in determining the course 
of action. It is displayed for the user. 

(c) 'State' tracks the last FTP command 
issued. This is used as the state of the process. 

(4) External references: 


(a) Lib.user_ options 
(b) Asmlib.byte_to char 
(c) IO.close 


(d) I0.is open 

(@) Blt .ovepore 

(f) Bit.tstbit 

(g) I0.read 

(_h) Asmlib.prntdata 

(1) Asmlib.send_trns 

(Jj) I0O.close 

(kK) Funes.get usemmane 

(1) Lib.send_cmd 

(m) Get_portnum 

(n) Get password 

(5) Process description: Process reply 
takes a course of action determined by the reply received 
and the last command that was sent. Any reply listed in 
(Ref. 2] of the thesis is handled. 

The last command issued may be considered the state of 
the process. Each state combined with the reply received 
1s assigned a response. If a reply is received that is 
inappropriate for the state of the process, the reply is 
ignored. This situation is the result of the different 
implementations of FTP. Since a server may or may not 
return more than one reply to a particular command and 
varying implementations have been experienced even in the 
limited scope of this thesis, the user system must be able 
handle many possible occurrences. This process simplifies 
the problem by using the first acceptable reply to a 
command as the key to its next action. Generally, the 
second reply is only information for the user anyway so the 
second and subsequent replies are displayed on the console. 
Printing of the multiple replies in sequence is ensured by 
issuing a 'noop' command before prompting the user to enter 
his’ ope fon: A description of the states and their 
responses follows. 

(a) Send username. The FTP command 
connection is established and the login sequence has begun. 
If a username has been requested, only the user and quit 
commands will be accepted by the remote server. 

(b) Send password. Follows the ‘send 
username' state. A user must have an account assigned and 
know the password to access files. 
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‘1))List the working directory 


‘2)) Change the working directory Function 

| fill displaypossibl 
(3)) Send a file (stor) age te ee eal mae 
(ay, Get a file (retr) . 
(5)) Get help (help) rameter: The comma 
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inserted in to the password. The characters are inspected 
to ensure only alphabetic characters have been entered. 


Cc. Geeyusernane 

(1) Type subroutine: Function 

(2) Purpose: Prompt the user toenter the 
valid user id and return the entered string. 

(3) Description of parameter: The username 
that is returned is to be used as a parameter to an FTP 
command. It is represented as a string of characters. 

(4) External references: 

(a) IO.get_line 

(5) Process description: The user enters 
his account id name followed by a carriage return. Only 
alphabetic characters are allowed. 


d= =Gect i porcnum 

(1) Type subroutine: Function 

(2) Purpose: The goal of get _portnum isto 
attain a valid port number to pass to the remote host in 
the port command. 

(3) Description of parameter: The port 
number that is returned is to be used aS a parameter to an 
FTP command. It is represented as a string of characters. 

(4) External references: 

(a)  Bitscoutpece 

(Db) - BiG. inpeme 

(c). Bit. tstiae 

(d) Asmlib.get_trns 
(e) Strlib-intwtoegser 
(f) Strlib.insege 

(5) Process description: In order for@ene 
remote server process to initiate a connection to a 
particular TCP (or port) address, the concentrator must 
select the sequentially correct port number and perform 
some initialization. Get portnum sends a control character 
to the concentrator requesting a port number which triggers 
this 1n1 € dali Caen. The port address that the 
concentrator sends is four bytes long. The FTP format for 
the 'port' command parameter requires the port address be a 
string of characters with the four bytes represented as 
characters in a string separated by commas. The bytes 
received are converted into integers which are converted 
iit ows = rlnics: The four strings are concatenated with 
commas between them to form the string acceptable as the 
fport' command parameter. 

e. Get filename 

(1) Type subroutine: Function 

(2) Purpose: Get_filename returns a string 
containing a file name that meets the format required by 
CPM and MS-DOS for file names. 
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(3) Description of parameter: The file name 
that is returned is to be used as a parameter to an FTP 
command. It is represented as a string of ascii 
characters. 

(4) External references: 

(a) I0O.get_ line 

(Dy meoeisl toeeharm to str 
(claw Strlib.insert 

(in Strip. Lengeh 

(5) Process description: Get filename reads 
the characters entered by the user when the carriage return 
is detected. Each character of the string is then 
scrutinized to ensure proper file name format. Leading and 
trailing spaces are ignored. A string with a space in the 
middle of the name will result in only the part of the 
string before the space being recognized. If a drive 
designator is included, a colon must be the second non- 
blank character. The number of characters in the primary 
file name are counted by the local variable 'name_len'. If 
nine characters are counted, not counting the drive 
designator, before a period, space, or end of line is 
reached, the file name is rejected as too long. IF a 
period is encountered, the extension is validated. Only 
leading spaces, alphanumeric characters, one colon, and one 
period are allowed ina file name. 


Poet aeainte ters ; 
(1) Type subroutine: Function 
(2) Purpose: The purpose of get_parameter 
is to attain a parameter for a command corresponding to an 
FTP command. 
(3) Description of parameters: 

(a) The option that is passed in 
represents an FTP command. Each FTP command accept a 
unique type of parameter. 

(b) The parameter that is returned is 
to be used as a parameter to an FTP command. It is 
represented as a string of ascii characters. 

(4) External references: 
(a) Funcs.get filename 
(b) I0O.get line 
(5) Process description: Only seven ofthe 
FTP commands implemented in this system require parameters 
other than the null string. The file name required as 
parameter to the 'retr' and 'stor' commands is a filename 
for the remote site. It is parsed by the remote site and 
errors identified via FTP replys. 
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S. PACKAGE NAME: GET 1P. PRG 


1. CONFIGURATION 
a. Language: JANUS/Ada 


b. Compiler version eer 
c. Linker version; =) 1-540 
dad. Target hardware: Zenith model 100 micro- 


computer 
e. Operating system: 
(1) Name: MS-DOS 
(2) Version: 2.11 


2. SUBROUTINE 


a. Get addr 

(1) Type subroutine: Procedure 

(2) Purpose: Get addr will display 
available remote destinations to the user return the 
address of the user's selected destination. 

(3) Description of parameters: The four 
integers returned by this procedure represent the four byte 
IP address of the desired destination. 

(4) External references: 

(a) Hosts.fil 

(Db) | Ov epen 

(c) I0O.close 

(ad) IO.get 

(e) IO.end of file 
(f) IoO.read 

(g) I0O.end_of_ line 
(h) I0O.skip_line 


(5) Process description: Get_ip printsthe 
contents of the file ‘'hosts.fil' along with a selector 
number and prompts the user to select his destination by 
keying in a number. Get _addr then interprets the addr and 
returns the selected address to the calling routine. The 
address is read from the file as an array of integers and 
the name as a string. The address is stored in four arrays 
representing each byte of the address. The user selection 
number then acts as the index of these arrays to identify 
the correct address. 

Additions to the hosts file may be required as hosts 
are added to the ETHERNET. The correct IP address may be 
obtained from the file ‘'hosts' on the VAX Unix or froma 


technical representative. The address must be entered as 
four integers separated by spaces. Each integer represents 
one byte so each must be less than 256. The name is a 


string of not more that 21 characters. The new entry must 
be made in the following format: 

(a) IP address byte one (<= 256) 

(b) Space 


PAS 


(c) IP address byte two (<= 256) 


(d) Space : 
(e) IP address byte three (<= 256) 
(fe) Space 


(g) Host name (<= 21 characters) 
T. PACKAGE NAME: ASMLIB.ASM 


ake CONFIGURATION 
a. Language: JANUS/ASSEMBLER 
b. Compiler version: 1.5 
c. Linker version: 1.5.0 
ad. Target hardware: Zenith model 100 micro- 
computer 
e. Operating system: 
(1) Name: MS-DOS 
(2) Version: 2.11 


2. Comments 


a. As stated in the Janus/Ada Users Man, the 
discrete type input parameters for Janus/assembly modules 
are stored on the stack with the last parameter closest to 
the top. Output and other type paramaters are addressed by 
the stack. 


b. Also stated in the Janus/Ada Users Man,the 
discrete value to be returned from Janus/assembly functions 
must be placed in the al register just before returning. 
Word values are returned in the ax register, and the 
address of non-discrete types returned is returned in the 
AX register. 


c. Theinterrupts and function calls used are 
standard to the operating system. Descriptions may be 
found in the commercial documentation. 


3. SUBROUTINES 


a Bybee scouchar 
(1) Type subroutine: Function 
(2) Purpose: Allow assignment of a variable 
of type byte to be assigned in to a variable of type 
character. Bit seven is masked to ensure the byte 
corresponds to an ascii character. 
(3) Description of parameters: 
(a) A value of type byte to be 
converted is the input parameter. 
(6) The input value is returnedas a 
Smactacter. 
(4) External references: NA. 
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C5) Process description: This function 
masks bit seven of the input byte and returns the result as 
a character. 


b. Byte to chr 

(1) Type subroutine: Function 

(2) Purpose: Allow assignment of a variable 
of type byte to be assigned in to a variable of type 
character. The byte is not modified, allowing control 
characters to be assigned into strings. 

(3) Description of parameters: 

(a) A value of type byte to be 

converted is the input parameter. 

(b) The input value 1s returnedas a 
character. : 
(4) External references: NA. 

(5) Process description: This fUnctamem 
returns the input byte as a character by moving the inpwe 
value into the ax register. 


Co Se eenecata | 
(1) Type subroutine: Procedure 
(2) Purpose: Display a value of type byte 
on the console. 
(3) Description of parameters 
(a) A value of type byte to be 
displayed on the console device is the input parameter. 
(4) External references: Interrupt 21h 
(5) Process description: This procedure 
moves the input parameter to the dx register, masks bit 
seven, sets the ah register and invokes the operating 
system function call '2lh'. This interrupt identifies the 
function desired from the ah register and reads its input 
from the dx register. The ascii representation of input 
value will be displayed on the console. 
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d. Getch 

(1) Type subroutine: Procedure 

(2) Purpose: Return the value most recently 
entered through the keyboard. 

(3) Description of parameters 

(a) The value of type byte most 

recently entered through the keyboard is returned. 

(4) External references: Interrupt 21h 

(5) Process description: The registersare 
set and a call is made to the operating system function to 
return the byte representation of the character entered to 
the keyboard. This value is placed at the address pointed 
to in the di register to be returned. 
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e. Delete file 

(i Type subroutine: Procedure 

(2) Purpose: Delete a file. 

(3) Description of parameters 

(a) The address ofthe file control 

block of the file to be deleted is input to this procedure. 
In Janus/Ada, addresses are represented as integers. 

(4) External references: Interrupt 21h 

(5) Process description: The registersare 
set and a call made to the operating system that will 
perform the desired file maintenance function. 


f. Create file 
(1) Type subroutine: Procedure 
(2) Purpose: Initialize a file commie 
block for an unopened file. 
(3) Description of parameters 
(a) The address ofthe file control 
block of the file to be created is input to this procedure. 
In Janus/Ada, addresses are represented as integers. 
(ob) An integer indicating the status 
of the function upon completion is returned. 
(4) External references: Interrupt 21h 
(5) Process description: The registersare 
set and a call made to the operating system that will 
perform the desired file maintenance function. The file 
control block must be declared by the calling routine or an 
address obtained from an existing FCB. FCB format and a 
description of the system function may be found in the 
Zenith/Heath Programmer's Utility Pack, chapters three and 
POUT . 


g- Open file 

(1) Type subroutine: Procedure 

(2) Purpose: Initialize a file Contre ll 
block for an unopened file. 

(3) Description of parameters 

(a) Theaddress of the file control 
block of the file to be opened is input to this procedure. 
In Janus/Ada, addresses are represented as integers. 
(6b) Found indicates if the file named 

in the File Control Block was found in the disk directory. 

(4) External references: Interrupt 21h 

(5) Process description: The registers are 
set and a call made to the operating system that will 
perform the desired file maintenance function. The file 
control block must be declared by the calling routine or an 
address obtained from an existing FCB. The FCB must be 
correctly initialized in order for this procedure to work 
correctly. FCB format and a description of the system 
function may be found in the operating system 
documentation. 
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Found will be set to false if the fille 1denti111coaeen 
the file name field of the FCB does not exist. 


h. Write file 
(1) Type subroutine: Procedure 
(2) Purpose: Write a record to a disk file. 
(3) Description of parameters 
(a) Theaddress of the file control 
block of the file to be written to is input to this 
procedure. In Janus/Ada, addresses are represented as 
integers. 
(b) 'Succ!' indicates if thewrite was 
successfully completed. 
(4) External references: Interrupt 21h 
(5) Process description: The registers are 
set and a call made to the operating system that will 
perform the desired file maintenance function. The file 
control block must be declared by the calling routine or an 
address obtained from an existing FCB. FCB format anda 
description of the system function may be found in the 
operating system documentation. 
'Succ' will be set to false if value returned in the AL 
register is not equal to Zero. 
i. Close file 
(1) Type subroutine: Procedure 
(2) Purpose: Close a file. 
(3) Description of parameters 
(a) The address ofthe file control 
block of the file to be closed is input to this procedure. 
In Janus/Ada, addresses are represented as integers. 
(4) External references: Interrupt 21h 
(5) Process description: The registers are 
set and a call made to the operating system that will 
perform the desired file maintenance function. A 
description of the MS-DOS system kernel function may be 
found in MS-DOS Programmer's Utility Pack. 


7s. Glesum 
(1) Type subroutine: Function 
(2) Purpose: Computethe check sum of a 
designated number of consequtive bytes. 
(3) Description of parameters 
(a) 'Addr' is the address of thefirst 
of the bytes to be part of the check sum process. In 
Janus/Ada, addresses are represented as integers. 
(6b) 'Amt' is the number of bytes to 
compute the check sum for. 
(c) The result of the check sum process 
1s returned. 
(4) External references: NA. 
(5)Process description: Compute cksum 
performs an XOR of ‘'amt' bytes beginning at ‘'addr' and the 
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result is returned as 'cksm'. This check sum algorithm 1s 
aesimple Gheck done only on data transmitted across the 
RS232 serial lines connection to verify data. 


k. Setdma 

(1) Type subroutine: Procedure 

(2) Purpose: Set the disk data transfer 
address. 

(3) Description of parameters 

'Addr'is the address at which the disk 
transfer is to begin begin. In Janus/Ada, addresses are 
represented as integers. 

(4) External references: Interrupt 21h. 

(5) Process description: The registers are 
set and a call made to the operating system that will 
perform the desired file maintenance function. A 
description of the MS-DOS system kernel function may be 
found in MS-DOS Programmer's Utility Pack. 


i NOVeEeno 

(1) Type subroutine: Function 

(2) Purpose: Return a character from the 
keyboard with out displaying the character on the console. 

(3) Description of parameters 

No echo returnstne character as type 
byte. 

(4) External references: Pcerrupt 21. 

(5) Process description: The registers are 
set and a call made to the operating system that will 
perform the desired console operation. A description of 
the MS-DOS system kernel function may be found in MS-DOS 
Programmer's Utility Pack. 


m. oG@aech rst 

(1) Type subroutine: Procedure 

(2) Purpose:Verify the existence of a file 
or match a filename that has wild card characters. 

(3) Description of parameters 

(a) 'Addr' is the addressof an 
unopened FCB. 

(b) 'Fnd' is a boolean thatindicates 
feetne file was found or not. 

(4) External references: Pcerrupt «21h. 

(5) Process description: The registers are 
set and a call made to the operating system that will 
perform the desired function. A description of the MS-DOS 
system kernel function may be found in MS-DOS Programmer's 
Utility Pack. 


Wee Search nxt 


(1) Type subroutine: Procedure 
(2) Purpose: Used after ‘search frst! to 
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find additional entries that match a file name that contains 
Wild card characters. 
(3) Description of parameters 

(a) '‘Addr' is the address of an 
unopened FCB. Addresses are represented as integers in 
Janus\Ada. 

(b) 'Fnd' is a boolean that indicates 
if the file was found cr noc. 

(4) External references: Interrupt 21h. 

(5) Process description: The registers are 
set and a call made to the operating system that will 
perform the desired function. A description of the MS-DOS 
system kernel function may be found in MS-DOS Programmer's 
Utility Pack. 


Oo. © Get tisns 

(1) Type subroutine: Procedure 

(2) Purpose: Receive one or more characters 
across the RS232 connection between the Z-100's and the 
concentrator. 

(3) Description of parameters 

(a) 'Addr' is the address that the 
first byte of the data is to be stored into. Addresses are 
represented as integers in Janus\Ada. 

(b) 'Dprt' is the port data pam 
address the data is to be received from. 

(c) 'Amt' is the maximum number@en 
bytes to be received on input and is returned as the number 
of bytes recieved. 

(4) External references: NA. 

(5) Process description: The data is read 
one byte at a time until the amount count is reached. 
DSR/DTR handshaking is performed before each character is 
read. For a state diagram of the handshaking, see 
([Hart\YAS86]}. 


p. Send trns 
(1) Type subroutine: Procedure 
(2) Purpose: Send one or more bytesacross 
the RS232 connection between the Z2-100's and the 
concentrator. 
(3) Description of parameters 

(a) 'Addr' is the address of the files 
byte of the data to be transmitted. Addresses are 
represented as integers in Janus\Ada. 

(b) 'Dprt' is the port data pore 
address the data is to be transmitted to. 

(c) '‘Amt' is the number of bytes Comee 
transmitted on input and is returned as the number of bytes 
actually sent: 

(4) External references: NA. 
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(5) Process description: The data is sent 
one byte at a time until the amount count is reached. 
DSR/DTR handshaking is performed before each byte is sent. 
For a state diagram of the handshaking, see [Hart\Yas86]. 


q- Read file 
(1) Type subroutine: Procedure 
(2) Purpose: Read a record from a disk 
Erle. 
(3) Description of parameters 

(a) 'Addr' is the address of the file 
control block of the file to be fread. In Janus/Ada, 
addresses are represented as integers. 

(b) 'Rslt'is an integer that identifies 
the result of the read. The details of the System Kernel 
Function may be found in the programmer's utility pack. 

(4) External references: Interrupt 21h 

(5) Process description: The registers are 
set and a call made to the operating system that will 
perform the desired file maintenance function. The file 
control block must be declared by the calling routine or an 
address obtained from an existing FCB. FCB format and a 
description of the system function may be found in the 
operating system documentation. 


r. Capital 
(1) Type subroutine: Function 
(2) Purpose: Convert a byte representing a 
lower case letter into a byte representing the 
corresponding upper case letter. 
(3) Description of parameters 

(a) 'Char'is the byte representation of 
a letter to be converted to upper case. 

(b) If the byte input was a letter, 
the byte returned will be the upper case representation of 
that letter. 

(4) External references: NA 

(5) Process description: Capital performs 
an 'and' operation between the input value and 5f hex and 
returns the result. No check is made to ensure the input 
is in the range of the ascii letters. An upper case letter 
will not be modified. 


S. Lower case 
(1) Type subroutine: Function 
(2) Purpose: Convert an upper case letter 
into the corresponding lower case letter. 
(3) Description of parameters 
(a)'Char' is the upper case letter to 
be converted to lower case. 
(ey lim the character input was a 
letter, the character returned will be the lower case 
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representation of that letter. 

(4) External references: NA 

(5) Process description: Lower case 
performs an or' operation between the input value and 20h 
and returns the result. No check is made to ensure the 
input is in the range of the ascii letters. A lowercase 
letter will not be modified. 


Lee LSS Se) Sec, 
(1) Type subroutine? Bunétien 
(2) Purpose: Convert an array of bytes into 
a strmng,. 
(3) Description of parameters 
(a) 'Addr' is the address of thefirst 
byte of the array to-be converted into a string. Since the 
first byte of a string contains the length of the string, 
the first byte of the array passed in must identify the 
number of bytes in the array. 
(b) The function returns the array 
unchanged. 
(4) External references: NA 
(5) Process description: Arr _to_strg 
returns the byte that. was passed in as a string. The array 
is not modified in any way and it is assumed that the 
programmer has set the first byte of the array as the 
length of the array (that is, length not including the 
length byte). 


Usa CONV oyc 
(1) Type subroutine: Function 
(2) Purpose: Allow assignment of a variable 
of type character to be assigned in to a variable of type 
byte. The value is not modified. 
(3) Description of parameters: 
(a) A value of type character Come 
converted is the input parameter. 
(6b) The input value is returned as a 
byte. 
(4) External references: NA. 
(5) Process description: This funceaen 
returns the input character as a byte by moving the inpm@e 
value into the ax register. 


v. Two bytes 
(1) Type subroutine: Function 
(2) Purpose: Convert a two byte array into 
an integer. 
(3) Description of parameters: 
(a) The address of the array to be 
converted is input to the function. 
(6) The input value is returned as an 
integer. 
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(4) External references: NA. 

(5) Process description: The address of the 
array is used to move the two bytes into the AX register to 
be returned. 

w. Dec _cnt 

(1) Type subroutine: Procedure 

(2) Purpose: No idea. 

(3) Description of parameters: 

(a) 

(b) 

(Cc) 
(4) External references:  WNA. 
(5) Process description: 


Re Cle rent mcs is 
(1) Type subroutine: Procedure 


(2) Purpose: Paent if y Phe eeclnGens 1 y 
selected disk drive. 
(3) Description of parameters: A byte is 


returned representing the currently selected disk 
drive(0=A, 1=B, etc.). 

(4) External references: Hite. 2 thi. 

(5) Process description: fMThis procedure 
only calls the System Kernel function that performs this 
service. See the Programer's Utility Pack for details of 
the function's operation. 


Youescee, Strg 

(1) Type subroutine: Procedure 

(2) Purpose: Allow a user to enter a string 
of characters into the keyboard. 

(3) Description of parameters: ‘'Addr' is 
the address of a memory buffer. The byte addressed must 
contain the maximum number of bytes that may be entered 
into the buffer. The second byte will be set to the actual 
number of bytes entered from the keyboard. Characters 
entered from the keyboard will be sequentially stored after 
the second byte of the buffer until the maximum length is 
reached or carriage is entered. 

(4) External references: Ente. Lh. 

(5) Process description: This procedure 
calls the System Kernel function that performs this 
service. See the Programer's seman Pack for details of 
the function's operation. 


2. Prone but 


(1) Type subroutine: Procedure 

(2) Purpose: Display one or more 
consecutive characters in memory on the console. 

(3) Description of parameters: 'Addr' is 


the address of the memory buffer containing the data to be 
displayed. 
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(4) External references: MB ehe Fe Joi 
. (5) Process descriptaon: This procediume 
calls the System Kernel function that will display one byte 
and loops until all bytes are displayed. The first byte of 
the buffer must contain the length number of bytes to be 
displayed. 


U. PACKAGE NAME: ASSYLIB.ASM 


1. CONFIGURATION 
a. Language: JANUS/ASSEMBLER 


b. Assembler Version: 1.4.6 
c. Linker Version: 1.4.7 
dad. Target Hardware: Intel 86/12A SBC 
e. Operating system: 
(1) Name: Cpm-86 
(2) Version: 1.1 
(3) Release: 1.4 
2% Comments 


a. As stated in the Janus/Ada Users Man, the 
discrete type input parameters for Janus/assembly modules 
are stored on the stack with the last parameter closest 
the top. Output and other type paramaters are addressed by 
the stack. 


b. Also stated in the Janus/Ada Users Man, the 
discrete value to be returned from Janus/assembly functions 
must be placed in the al register just before returning. 
Word values are returned in the ax register, and the 
address of non-discrete types returned is returned in the 
AX register. 


c. The interrupts and function calls used are 
standard to the operating system. Descriptions may be 
found in the documentation supplied by Zenith Data Systems 
Lor "“CPH—s6. 

dad. Many of the functions and procedures in this 
package perform the same function as a supplied Janus/Ada 
tool. In order to access the Janus supplied modules, other 
modules that may not be used must be linked into the 
command file. These modules were coded by the authors to 
preclude inclusion of excess modules. 


3. SUBROUTINES 


a. Cksum 
(1) Type subroutine: Procedure 
(2) Purpose: Calculate the 'checksum' value 
of a specified number of bytes. 
(3) Description of parameters: 
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(a) '‘Addr' is the address of the first 
byte to be included in the checksum calculation. 

(5) ‘Num wrds' specifies the number of 
sixteen bit words to include in the checksum calculation. 

Ge) 'Rslt' is the result of the 
calculation. | 

(4) External references: NA. 

(5) Process description: The checksum of a 
network packet is defined as being the ones complement of 
the one's complement sum of all sixteen bit words. For the 
purposes of computing the checksum, the checksum field is 
set to zero. 'Cksum' begins the calculation at the address 
specified and computes the next 'Num_wrds' sequential 
sixteen bit words. Checksum is used to verify accuracy of 
datagram headers transmitted over networks. The headers 
used in this application do have the checksum field within 
the header. A detailed description of checksum computation 
is contained in Stanford Research Institute, Request For 
Comments number 793, p 16. 


be” (Wasa 

(1) Type subroutine: Procedure 

(2) Purpose: Send the memory address to be 
used for a block data transfer to the ETHERNET controller 
board. 

(3) Description of parameters: 

(a) 'Ad' is the offset address of the 
first byte to be used by for the data transfer. 

(4) External references: NA. 

(5) “Process description: The offset address 
that is input is converted to a 20 bit address needed to 
perform a DMA transfer across the MULTIBUS. The address 
is computed by shifting the extention byte to the left four 
bits and adding it to the lower two bytes. 

The three bytes of the 20 bit address are written to 
lee POrts declared in the procedure. H ad prt and 1 ad prt 
are for the high and low bytes of the address, and e ad_prt 
is the port address to send the extended portion of the 20 
bit address. Since the these addresses are hard coded, the 
program would have to be modified and reassembled and 
linked if the NI3010 port addresses change (which is not 
very likely). 


ez Pnpmec/ ouEDIE 
(1) Type subroutines: Procedure 
(2) Purpose: Get/send value to/from an IO 
Bert. 
(3) Description of parameters: 
(ays ert ers tne port number the data 
1s to be accessed. 
(b) 'Byt' is the value to be written 
Eeror read from the port. 
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(4) External references: NA. 

(5) Process description: The assembly ‘in! 
and'out' instructions are used to get/send the value 
through the designated port. 


om Addarr, subarr 
(1) Type subroutines: Procedure 
(2) Purpose: Add/subtract two four jbyee 
arrays. 
(3) Description of parameters: 
(a) ‘'Arrl' and ‘arr2' are the ewe 
arrays to be operated on. The result is returned in 
se 0 oo) ae aa 


(4) External references: NA. 

(5) Brocess description: Each of the eight 
input bytes are moved into registers. The corresponding 
bytes are added/subtracted as though the array represented 
a long integer. 


6. “APES COs ine 

(1) Type subroutines: Function 

(2) Purpose: Convert the value represented 
in a two byte array into a two byte integer representation. 

(3) Description of parameters: 

(a) 'Arr' contains the value to be 

converted. 

(4) External references: NA. 

(5) Process description: The input value 
is not modified. The value of each byte of the input array 
is moved into the output area and returned. 


£. Obivolo 

(1) Type subroutines: ebunctien 

(2) Purpose: Convert the high/lo byte of an 
integer into a byte. 

(3) Description of parameters: 

(a) 'Int' is the integer from which the 
high byte will be copied. 

(4) External references: NA. 

(5) Process description: Integers are 
represented as two bytes. In these functions, the value of 
the high/low byte of the input integer is assigned to the 
AL register and returned. 


fe OVASIEIO ie 
(1) Type subroutine: Se runercton 
(2) Purpose: Determine if a specific bit of 
an eight bit byte is set (equal to one). 
(3) Description of parameters: 
(a) A value of type byte Eomne 
inspected. 
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(oni neeger adentifying the bit 
number of the byte that is to be inspected. The range is 
ieee / « 

(4) External references: NA. 

(5) Process description: Mo, test a 
particular bit of a byte and return true if set. 

howe Oc lrebst/OSsecbic 

(1) Type subroutines: Function 

(2) Purpose: Set or clear a specific bit of 
a specific byte. Most often used to set values of control 
words. 

(3) Description of parameters: 

(a) 'Num' is the byte in which the bit 
is to be set/cleared. 

(b) 'Bit' is the bit number of the bit 
to be set/cleared. The range is 0..7. 

(4) External references: NA. 
(5) Process description: ??? 


i pe ctecqtive lt equy, gq than, 1 than 
(1) Type subroutines: Function 
(2) Purpose: Determine the logical 
relationship between two four byte arrays. 
(3) Description of parameters: 
(a) 'Arrl' and ‘'Arr2' are the arrays 
to be compared. 
(b) Aboolean value is returned 
indicating if the tested condition holds. 
(4) External references: NA. 


(5) Process description: 22? 
itera rr 
(1) Tye subroutines: Function 


(2) Purpose:Increase the value of an array 
by one as if it were an integer. 
(3) Description of parameters: 

(a) wAtrer' 15 "the array to be 
incremented. 

(b) 'Int' is the ??? 
(4) External references: NA. 
(5) Process description: ??? 


Ign « (enahe rg Vlepe 
(1) Type subroutines: Function 

(2) Purpose: Identify the integer with the 
larger numerical value. 
(3) Description of parameters: 

(a) 'Intl' and 'Int2' are the integers 
to be compared. 
(6b) Thelarger integer is returned as 
an array of two bytes. 


ise 


(4) External references: NA. 

(5) Process description: The integers are 
compared using the assembly ‘'cmp' instruction and the 
larger value placed in the AX register for return. 


1. Upper_nibble 
(1) Type subroutines: Function 
(2) Purpose:To return the integer valueof 
the upper nibble of a specified byte. 
(3) Description of parameters: 
(a) 'Byt' is” a bye, 
(b) an integer is returned. 
(4) External references: NA. 
(5) Process description: 

A field in the TCP/IP header is only 4 bits wide and is 
contained in the upper nibble of a particular byte. This 
function shifts that byte to the right 4 bits, then recumme 
that value. 


m. Inc nxt prt_ad 
(1) Type subroutines: Function 
(2) Purpose: Advance the value of the 
buffer pointing at the next TCP address to be used. 
(3) Description of parameters: 
(a) J yicl Giig ! is the integer 
representation of the last TCP addressed. 
(b) The incremented input value is and 
returned. 
: (4) External references: NA. 
(5) Process description::The input value is 
incremented and returned. 


Ne SPRneeH 

(1) Type subroutines: Function 

(2) Purpose: Output a value on the console. 

(3) Description of parameters: NA. 

(4) External references: Int 21h. 

(5) Process description: A system kernel 
function is called to perform the desired function, ime 
registers must be set prior to calling this functrvem 


Oo. Prt hex 
(1) Type subroutines: Function 
(2) Purpose: ???0utput the hexidecimal 
representation of a value on the console. 
(3) Description of parameters: 


(a) 'Addr'is??? the integes 
representation of the last TCP addressed. 
(b) ‘Num! Gis 922 


(4) External references: NA. 
(5) Process description: The input value is 
incremented and returned. 
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IS Gans eal 

(1) Type subroutine: Procedure 

(2) Purpose: Receive one or more characters 
across the RS232 connection between the Z-100's and the 
moncentrator. 

(3) Description of parameters 

(a) 'Addr' is the address that the 
first byte of the data is to be stored into. Addresses are 
represented as integers in Janus\Ada. 

(See Opec mete somtmne port data port 
address the data is to be received from. 

(c) 'Amt' is the maximum number of 
bytes to be received on input and is returned as the number 
of bytes received. : 

(4) External references: NA. 

(5) Process description: The data is read 
one byte at a time until the amount count is reached. 
DSR/DTR handshaking is performed before each character is 
read. For a state diagram of the handshaking, see 
[Hart\YAS86]. 


q- Send trns 

(1) Type subroutine: Procedure 

(2) Purpose: Send one or more bytesacross 
the RS232 connection between the Z=-100's and the 
concentrator. 

(3) Description of parameters 

(a) 'Addr' 1s the address of the first 
byte of the data to be transmitted. Addresses are 
represented as integers in Janus\Ada. 

Chee Dprt' 1S) ene pore data port 
address the data is to be transmitted to. 

(c) 'Amt' is the number of bytes to be 
transmitted on input and is returned as the number of bytes 
actually sent. 

(4) External references: NA. 

(5) Process description: The data is sent 
one byte at a time until the amount count is reached. 
DSR/DTR handshaking is performed before each byte is sent. 
For a state diagram of the handshaking, see [Hart\Yas86]}. 


io © Due 

(1) Type subroutine: Procedure 

(2) Purpose: Display one or more characters 
on the console. 

(3) Description of parameters 

Cen Seg sets the string to be 

displayed. 

(4) External references: NA. 

(5) Process description: The first byte of 
the input string is expected to be the length of the string 
to be displayed. That number of characters are displayed 


141 


to the console using the 'out' instruction to the monitor 
data port address. The monitor data and status port 
addresses are specified in the Z-100 hardware 
documentation. 


s. Onew_line 

(1) Type subroutine: Procedure 

(2) Purpose: Advance the ‘next display' 
position on the console to the beginning of a new line. 

(3) Description of parameters: NA. 

(4) External references: NA. 

(5) Process description: The ascii 
characters 'carriage return' and 'line feed' are sent to 
the monitor data port using the ‘out' instruction. 


t. xXsum 
| (1) Type subroutine: Function 
(2) Purpose: Perform an xXOR operation on 
the specified number of bytes. This is used as a primative 
checksum for local network transmissions. 
(3) Description of parameters: 
(a) 'Addr' is the address of the first 
byte of data to be included in the checksum operation. 
(b) 'Cnt' is the number of consecutive 
bytes to process. 
(c) The result of the multiple XOR 
operations is returned. 
(4) External references: NA. 
(5) Process description: The address is 
incremented as each byte is XOR'ed against the register 
holding the return value. 


u. Get data 
(1) Type subroutine: Procedure 
(2) “PURDOSe:= 9477 
(3) Description of parameters: 
(a) 'Port' is the port number to be 
read. 
(b) 'Addr' is the address in which to 
Store the first byte of data. 
(c) 'Len' is the number bytes received. 
(4) External references: NA. 
(5) Process description: =. 2 
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APPENDIX C 


USER MANUAL FOR TELNET 


SECTION 1. GENERAL 
1.1 Purpose of the Users Manual. 

The purpose of the Users manual for the NPS Local Area 
Network TELNET is to allow students with minimal experience 
in computer science to effectively use the systen. 

1.2 Project References. 

a. Hartman, R. L. and Yasinsac, A. F., " Janus/Ada 
Implementation of a Star Cluster LAN of Personal Computers 
With Interface to an ETHERNET LAN Allowing Access to DDN 
Resources", M. S. Thesis, Naval Postrgaduate School, 
Monterey, California, June 1986. 

1.3 Terms and Abbreviations. 


a. TLeEENET. The name for the software standard remote 
login protocol. 


b. LAN. Acronym for Local Area Network. 


c. 2-100. Short name for the Zenith model 100 micro- 
computer. 


d. TCP. Telecommunications Protocol. 
e. IP. INPERNET Protocol. 
f. NPS. Naval Postgraduate School, Monterey, Ca. 
1.4 Security and Privacy. 
The Users Manual, programs, and files used to implement 


the NPS TELENET process are unclassified and contain no 
information covered by the Privacy Act. 
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SECTION 2. SYSTEM SUMMARY 
2.1 System Application. 


a.Purpose of TELNET. As stated in the SRI RFC-764, the 
purposeoftheTELNET Protocol is to providea general, bi- 
Gdirectional,eight-bitbyte orientedcommunicationsfacility. 
Itsprimarygoal is to allow a standard methodofinterfacing 
terminal devices and terminal-oriented processed to each other. 


b. Capabilities of the system. 


Telenet allows a user to act as a terminal to the 
VAX 11-780, 11-750, Irisl1, and Iris2 computers attacheaure 
ETHERNET. To login to one of these systems a user must have 
an account on the desired system. When logged in, a user 
has all capabilities of a directly connected terminal 
including file edit, copy, directory inquiry eee 
maintenance, and network access via FTP. 


c. Additional features] wNone- 


ad. Functions of the system. TELNET will allow the 
user to select a remote destination, will establish a 
network connection to the desired destination and pass the 
transmitted characters between the user and the remote 
location. Once the system has established the connection, 
the Z-100 will function as a remote terminal to the remote 
host. 


2.2 System operation. 

In order to use TELNET, the files telenet.com (.cmd if 
under CPM-86) and hosts.fil must reside on the users 
auxillary storage device. 


2.3 System Configuration. 


TELNET was designed to operate on Zenith model 100 
microcomputers connected to the NPS local area network. 


2.4 System Organization. 

TELNET operates as an information pasSing station when 
logged in to a remote host. Characters entered in to the 
keyboard are sent to the remote host and received bytes are 
displayed on the screen. 


2.5 Performance. 


as Input. 
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The only user input to TELNET is the selection of 
the desired destination. 


See Ou cpu. 
There is no output generated from TELNET. 
c. Response Time. 


Response time will vary due to three primary 
reasons: 


ee FuncE Ton. 


Mepegucsctmmoe list the directory will 
generally be accomplished quicker than a request to edit a 
file. 


2. System usage. 


ETHERNET is a broadcast network 
operating at ten megabits per second. Even at this high bit 
rate, the medium becomes quickly overloaded when the number 
of users increases. Additionally, the local and remote 
front end processors slow down significantly when use 
increases. With the current configuration, it is suggested 
that a maximum or four Zenith users a under TELNET/FTP 
Seemcurrently. 


Sie Error occurrence. 


User caused error such as misspelling a 
password or system error caused by transmission medium 
malfunction will be corrected by the system. However, 
response time may be degraded. 


a Limitations. 


NPS TELNET can not be used to log in to a computer 
outside the NPS LAN. ARPANET access may be achieved by 
utilizing NPS TELNET to log in to a computer with ARPANET 
access and utilizing TELNET on that system to access 
ARPANET. 


2-6 Data Base. 


The only file used by TELNET is the file 'HOSTS.FIL'. 
This file contains the name and INTERNET address of remote 
hosts connected to the NPS LAN. The hosts file is a text 
file that is maintained by programmers of the Aegis project 
and 1S write protected. 
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2.7 General Description of Inputs, Processing, and Outputs. 
22/01) Inpuee- 
a. User input. 


‘The only user input to TELNET is jem 
selection of the desired remote host. Once the user is 
logged in to a remote host, the console input is considered 
input to the operating system of the remote computer. 
Control right bracket may be entered by the user as a signal 
to TELNET to terminate the process. 


bs ~Palewinpoute 

The file 'HOSTS.FIL' contains the name and 
INTERNET address of the computers directly accessable from 
the NPS LAN. 

2cf.2 (OURDUE, 
ae Console output. 

1. The available destinations are displayed 
when a user initiates TELNET. The name of the desired 
destination is the important element to the TELNET user. 
The address is displayed for system maintenance purposes. 

2. Data received from the remote computer is 
considered to be information from the remote host operating 
system to the user and is displayed on the console. 


b. Network connection. 


Every keystroke by the user is transmitted 
individually to the remote host. 


Biowsl oo Process. 
TELNET initiates a network connection with the selected 


remote host and then acts as an information passer between 
the micro-computer user and the remote host. 


146 


ATTACHMENT 1 TO APPENDIX C 


TELNET RUN SHEET 
A. Getting started. 


TELNET is programmed to operate on the Zenith model 100 
attached to the cluster of micro-computers in the NPS micro- 
computer lab. All computers in the lab should have the 
files 'TELNET.COM' ('TELNET.CMD' if under CPM 86) and 
'HOSTS.FIL' needed to utilize TELNET resident on the Z-100 
hard disk. If under MSDOS the files will be in directory 
meOCAL.NET*. : 


To use TELNET, an MSDOS user must enter the directory 


'LOCAL.NET'. To initiate TELNET the user will enter 
'TELNET<cr>'. The first message displayed to the console by 
TELNET will be 'ENTERING THE TELNET PROCESS.'. The user 


will then be prompted to select the destination. Once the 
destination is selected, the first user of the system may 
experience a short delay of up to one minute while the Z-100 
transmits the control program to the concentrator. No 
action is required by the user until another message is 
displayed to the screen. From this point, the user only 
need respond to messages displayed on the screen and to the 
operating system of the remote host. 


iS SELECTING A DESTINATION. 


TELNET will display a list of possible destinations for 
an TELNET connection. Selecting the desired destination is 
accomplished by entering the number corresponding to the 
desired system name followed by a carriage return. 


The destinations displayed include the recognized 
INTERNET name and address of computers connected to the NPS 
LAN. The user may select any computer on the list. 
However, TELNET will not allow remote login unless the user 
has an account on the remote computer. If a user is not 
sure which computer he may connect to, he should contact an 
instructor or the computer science department technical 
representative responsible for system accounts. 


C. SELECTING AN OPTION. 


TELNET will prompt the user to enter an option and will 
display a list of valid options. The option list and 
further messages are self explanatory. Selection is 
effected by entering the number corresponding to the desired 
option followed by carriage return. 
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D. WHEN TROUBLE OCCURS. 


TELNET .i1s designed to be totally robust. If a user 
desires to terminate the system abnormally, enter control 
right bracket (%}]) or the prompted chatactc maa 
termination. If this does not work, the user may terminate 
the process at any time without destroying files or causing 
system damage by utilizing control reset. Some specific 
problems and response descriptions follow. 


1. Excessive wait occurring. The NPS LAN is designed 
for a small number of users and will backup quickly as the 
number of users rise. Terminating while waiting can usually 
be accomplished by entering *] (control right bracket). If 
this is not successful, enter control reset. Terminating 
the system abnormally in this fashion may cause a longer 
than normal wait required to reenter the system. 


Page Keyboard does not accept characters. If whe 
keyboard is 'frozen' a short wait may allow the system to 
recover. If this is not effective, the only recourse is 
COnerel reser: 


3. System will not accept a file name. If the system 
will not accept a filename, refer to the messages produced 
and documentation for the operating system in US@@agmee 
proper filename format. 
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APPENDIX D 


USER MANUAL FOR FTP 


BecrION 1. GENERAL 
1.1 Purpose of the Users Manual. 

The purpose of the Users manual for the NPS Local Area 
Network file transfer process is to allow students with 
minimal experience in computer science to effectively use 
the system. 

1.2 Project References. 

a. Hartman, R. L. and Yasinsac, A. F., " Janus/Ada 
Implementation of a Star Cluster LAN of Personal Computers 
With Interface to an ETHERNET LAN Allowing Access to DDN 
Resources", M. S. Thesis, Naval Postgraduate School, 
Monterey, California, June 1986. 

1.3 Terms and Abbreviations. 


a. FTP. The acronym for the software standard File 
Transfer Process. | 


b. LAN. Acronym for Local Area Network. 


©. 2-100. Short name for the Zenith model 100 micro- 
computer. 


ad. TCP. Telecommunications Protocol. 
e. TP: ENTERNET Preteocel. 
f. NPS. Naval Postgraduate School, Monterey, Ca. 
1.4 Security and Privacy. 
The Users Manual, programs, and files used to implement 


the FTP process are unclassified and contain no information 
covered by the Privacy Act. 
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SECTION 2. SYSTEM SUMMARY 
2.1 System Application. 
a. Purpose oral. 


FTP 1S a well documented software protocol for 
transfering information between computers within a network. 
The specifications for FTP are contained in the INTERNET 
Protocol Transition Workbook and Stanford Research 
Institute Request for Comments number 765 dated June, 1980. 


FTP is used to effect file transfer and related 
operations between computers on the NPS local area network. 
The NPS local area network is not directly connected to any 
external network such as ARPANET, so file transfer beyond 
the local network can only be accomplished by logging-in to 
a computer on the local network that has external access, in 
this case the VAX 11-780 operating under UNIX. Once 
logged in the user may utilize the version of FTP 
implemented under UNIX to access computers on ARPANET and 
other networks. 


The FTP implementation for this thesis did not require 
all the features described in the FTP documentation. The 
goal here is to allow only active data transfers to remote 
sites, meaning no computer can initiate a data transfer toa 
Z-100. This eliminates the need for an FTP server process 
to handle incoming requests to a Z=-100.. Additionally, the 
mail passing facilities of FTP were not programmed. A user 
of this FTP system may request transfer of a file to or from 
the remote computer, list the directory on the remote 
computer, change the working directory on the remote 
computer, ask for help, or terminate the process. The 
specific FTPcommands, replies, and parameters that are 
included in this implementation are listed in the Program 
Maintenance Manual [Appendix ?]. 


b. Capabilities of the systen. 

FTP is a general process for transferring files 
across data networks. In the NPS LAN its capabilities are 
limited to transfer of files only between computers 
operating under TCP/IP attached to ETHERNET. 

c. Additional features. None. 
ad. Functions of the system. 
FTP allows a user to copy, send, and delete files 


from any directory he has access to on a remote host 
computer. 


iSs 


2.2 System operation. 


ime rOecrePomice FTP) the tiles ftp-com (.cmd if under 
CPM-86) and hosts.fil must he on the users auxillary 
storage device. 


2.3 System Configuration. 


FTP was designed to operate on Zenith model 100 micro- 
computers connected to the NPS local area network. 


2.4 System Organization. 


FTP operates as.a dialogue between the FTP process on 
the user's micro-computer and an FTP process on the remote 
computer. When the user selects an option, including 
starting FTP, FTP will generate and send an FTP command to 
the remote computer. The remote computer will respond with 
replys that identify the state of the remote FTP process. 


2.5 Performance. 
are LN DUG. 

FTP prompts the user for information including his 
remote user name, password, account number if required, and 
request. A local file to .be transmitted may also be 
considered input to FTP. Input received from the network 
connection includes data, FTP replys, and coordinating 
information from the communication front end processor 
(concentrator). 

oe. OUtCpUt. 


The same type of information that is received as 
input is also output of FTP. 


c. Response Time. 


Response time will vary due to three primary 
reasons: 


ie rer ton « 
A request to change the working 
directory will generally be accomplished quicker than 
transfer of a large file. 


2. System usage. 


ETHERNET iV ase bawoaacast network 


itera 


operating at ten megabits per second. Even at this high bit 
rate, the medium becomes quickly overloaded when the number 
of users increases. Additionally, the local and remote 
front end processors slow down significantly when use 
increases. With the current configuration, it is suggested 
that a maximum or four Zenith users operate under FTP 
concurrently. 


cc Error occurrence. 

User caused error such as misspelling a 
password or system error caused by transmission medium 
malfunction will be corrected by the system. However, 
response time will be severely diminished. 

ae Limitations. 

FTP can not be used to transfer a file to another 
micro-computer on the cluster. Text or command files may be 
transferred. 

2.6 Data Base. 

The only file used by FTP is the file 'HOSTS.FIL'. 
This file contains the name and INTERNET address of remote 
hosts connected to the NPS LAN. The hosts file is a text 
file that is write protected. 
2.7 General Description of Inputs, Processing, and Outputs. 

277-1 Inmpmece 

as. USGreinput. 


1. Username. 


This is the user name that identifies 
the account to be connected to on the remote computer. 


2. Password. 

Password is the password that must be 
entered in order to connect to the account identified by 
'username'. 

3. Filename. 

a) Local. 

The local file name must be a valid 


file name under CPM or MSDOS. Improperly formated file 
names are not accepted. If the filename is for a file to be 
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sent, the file must exist on the device specified in the 
file name. 


b) Remote. 

The remote file name is a string of 
not more than eighty characters. If the file name entered 
is not acceptable or does not exist in the case of getting a 
file, FTP will so notify the user. 

A ORE On... 

The option selected identifies the type 
of request the user desires. The possible options are 
displayed on the screen and the user selects the letter of 
the desired option. 

b. File data. 

Text or command files may be transferred. 
c. Network connection. 

1. FTP replies. 

These repliesare textural data that 
provide information to the user. These replies are 
displayed on the user's console. 


2. File data. 


Text or command files may be received. 
Zee OUEPUE. 


a. Console output. 
1. FTP replies. 


FTP replies received fromthe network 
connection are displayed on the console. 


2. Prompts for option, user name, password, 
and file name are displayed on the console. 


b. Network connection. 
FTP commands triggered by a user specified 
Option or by an FTP reply are send to the network 


connection. 


c. File data. 
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Data received from the network is stored into 
the file specified by the user. 


Pe eS Process. 


The process maintains the dialogue with the FTP 
processon the remote computer by responding to replies with 
commands. The appropriate command is selected by following 
the documented FTP protocol and prompting the user when 
information is needed. 
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ATTACHMENT 1 TO APPENDIX D 


FTP RUN SHEET 
A. Getting started. 


FTP is programmed to operate on the Zenith model 100 
attached to the cluster of micro-computers in the NPS micro- 
computer lab. All computers in the lab should have the 
meres 'FTP.COM' ('FTP.CMD' if under CPM 86) and 'HOSTS.FIL' 
needed to utilize FTP resident on the Z-100 hard disk. If 
under MSDOS the files will be in directory 'LOCAL.NET'. 


To use FTP, an-MSDOS user must enter the directory 
'LOCAL.NET!'. To initiate FTP the user will enter 'FTP<cr>'. 
The first message displayed to the console by FTP will be 
'ENTERING THE FTP PROCESS.'. The user will then be prompted 
to select the destination. Once the destination is 
selected, the first user of the system may experience a 
short delay of up to one minute while the Z-100 transmits 
mae control program to the concentrator. No action is 
required by the user until another message is displayed to 
the screen. From this point, the user only need respond to 
messages displayed on the screen. 


B. SELECTING A DESTINATION. 


FTP will display a list of possible destinations for an 
FTP connection. Selecting the desired destination is 
accomplished by entering the letter corresponding to the 
desired system name followed by a carriage return. 


The destinations displayed include the recognized 
INTERNET name and address of computers connected to the NPS 
LAN. The user may select any computer on the list. 
However, FTP will not allow transfer of files unless the 
user has an account on the remote computer. If a user is 
not sure which computer he may connect to, he should contact 
an instructor or the computer science department technical 
representative responsible for system accounts. 


oF SELECTING AN OPTION. 


FTP will prompt the user to enter an option and will 
display a list of valid options. The option list and 
further messages are self explanatory. Selection is 
effected by entering the letter corresponding to the desired 
option followed by carriage return. 
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Ds WHEN TROUBLE OCCURS. 


FTP is designed to be totally robust. If a user 
desires to terminate the system abnormally, enter control 
right bracket (*]) or the prompted character waa. 
termination. If this does not work, the user may terminate 
the process at any time without destroying files or causing 
system damage by utilizing control reset. Some specific 
problems and response descriptions follow. 


1. Excessive wait occurring. The NPS LAN is designed 
for a small number of users and will backup quickly as the 
number of users rise. Terminating while waiting can usually 
be accomplished by entering *] (control right bracket). If 
this is not successful, enter control reset. Terminating 
the system abnormally in this fashion may cause a longer 
than normal wait required to reenter the systen.. 


2. Keyboard does not accept characters. The system 
1s designed to allow a user to enter data only when 
prompted. If the keyboard is frozen when a user prompt 
appears on the screen, the only recourse is control reset. 
At other times, a screen requesting the user to wait may 


appear for a substantial period. See the previous 
paragraph. 
a5 System will not accept a file name. Local 


filenames entered by the user will be parsed by the system 
to ensure proper format. If the system will not accept a 
filename, refer to the messages produced and documentation 
for the operating system in use as to proper filename 
format. 
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APPENDIX E 


USER MANUAL FOR LOCAL 


SECTION 1. GENERAL 
1.1 Purpose of the User's Manual. 


The purpose of the User's Manual for the NPS Local Area 
Network Local connection process is to allow students with 
minimal experience’in computer science to effectively use 
the system. 


1.2 Project References. 


a. Hartman, R. L. and Yasinsac, A. F. "Janus/Ada 
Implementation of a Star Cluster LAN of Personal Computers 
With Interface to an ETHERNET LAN Allowing Access to DDN 
Resources", M. S. Thesis, Naval Postgraduate School, 
Monterey, California, June 1986. 


1.3 Terms and Abbreviations. 


a. Local. The command file used to connect two or more 
terminals together. 

b. Group. When two or more terminals are connected 
together under the 'local' process, those terminals with a 
common 'link' in the concentrator are considered in a group. 
The group defines the destinations of broadcast packets in a 
local connection. A terminal is connected to a particular 
group when it initially connects to another terminal, 
becomming connected to the other terminal's group. More 
than one group can exist at once. Two or more terminals 
constitute a group. 

c. Link. Terminals are linked together in groups using 
pointers implemented in the concentrator program. 

dad. LAN. Local Area Network. 


1.4 Security and Privacy. 
The Users Manual, programs, and files used to implement 


the Local process are unclassified and contain no 
information covered by the Privacy Act. 
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SECON 2. SYSTEM SUMMARY 
2.1 System Application. 
a. Purpose of Local. 


Local is used to transfer files, send messages and 
print files amoung the different terminals in the LAN. 


b. Capabilities of the system. 


The local communication network system can be 
thought of as potentially connecting, simultaneously, all 
terminals in the LAN. Each remote terminal has its own 
connecting port in each local termrnal The remote 
terminals may be simultaneously getting files, sending 
files, exchanging messages or using the printer, all from 
the same terminal. The system has been designed for ease of 
use. For instance, the command '?' can be entered any time 
text is not being entered, to find out what commands are 
available. Multiple files can be transferred with a single 
text input. 


c. Additional features. 


Directory listings can be obtained from remote 
terminals by use of the 'directory' command. User names are 
passed upon command. Network status is available. 
Terminals can be used as mailboxes for other terminal users. 
Helpful information on using the system is readily available 
to the user. 


2.2 System operation. 


Getting started - The system is started by executing 
the command file ‘'local'. Successsful boot-up and initial 
communication with the concentrator is observed by your 
terminal number being displayed. Continued boot-up will 
display the message 'Login:'. At this time you should enter 
your name. If another terminal connects to yours before you 
enter your name, the connection will be established but you 
will not be logged in under your name. The automatic login 
feature allows a single user to connect to multiple 
terminals without logging in at each one. 


Once logged in, a destination terminal should be 
selected. Enter the terminal number for any of the other 
terminals. If the destination terminal you pick is not 
booted up in 'local', your terminal will be set to ‘listen’, 
which listens for another terminal to connect with it. The 
other terminal can and must log into yours to establish the 
connection. Once established, full use to the system is 
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available. The following is a summary of what can be 
performed: 


Send files 

Get files 

Send messages 

Receive messages 

Get directory listings 
Get status 

Pi files | 


Many of the commands can be executed with all the other 
terminals at once. For instance, to send a file to all 
terminals simultaneously, the ‘all>' prompt needs to be on 
the screen. If ‘send files' is selected and one or more 
file names entered, the files (assuming the files are 
available on disk) will be broadcast to all terminals in the 
Same connection or 'group' connection (more about 'groups'! 
later). A message, likewise, can be sent to 'all', as well 
as getting a directory listing from 'all'. The prompt is 
the terminal number that will receive an outgoing packet (if 
one is sent) when a command is entered. The prompt: 


iS> 
for instance, will direct any transmitted data, as.a result 
of a command, to terminal number 15. If terminal 15, 
however, is not executing ‘local', then the data goes 
nowhere. 


To find out which terminals are in local or listen 
states ( waiting for a local connection) enter 'n' for the 
netstat command. All command entries, by the way, are by a 
Single keystroke. When the netstat information appearson 
your screen, all terminal numbers will be listed along with 
their state. The PCB state is the one you are concerned 
about. 


To obtain a summary of all the available commands use 
the command information. This command opens the file 
'info.txt' and presents it to you. Here is a summary of 
that file. 


all - used to broadcast transmissions to the 'group'. 

bell ON/OFF - when a message arrives to your terminal 
the bell will either sound or not, depending on this 
setting. The default setting is OFF. 

change group - once established in a 'group', to 


Change to a different group without 'quitting', use this 
command followed by a terminal number in the other group. 


see, 


directory - to obtain a directory listing on vomeuem 
more other computers use this command followed by the 
listing desired. ie: 

[drive:] <filename | wildcard> . <ext | wildcard>jae 


When entering the filenames you are in ‘enter text' mode 
which means to terminate use a cntl-Z. To abort the command 
enter cntl-Q and to review what has been entered use cntl1-R. 


get - to get files use this command followed by the 
file(s) you’ want to get. You are in ‘enter text' mode after 
issuing the command so the same rules apply as above. The 
file(s) will be stored on the current logged disk. 


information - this command displays a text file called 
'info.txt' to you describing each command, one at a time. 


list - a list of all the terminals which have 
communicated with yours is displayed. This list will be 
only those in the 'group' connection if a 'whose's there?! 
command iS issued prior to ‘'list'. 


print - used to print out one or more text files. 
After issuing the command the ‘enter text' mode is again 
used to enter the file name(s). 


send - to send file(s) to another terminal. ‘Ene 
text' mode is used to enter the file name(s). 


talk - to send a message to another terminal. ‘Enter 
text' mode is used to enter the message. If more than 512 
characters are entered then one message is sent and another 
1s automatically started so that continuous entries can be 
made. This command can also be used to directly interact 
with the printer rather than creating a file to print. 


Verbose - to turn on and off certain screen output when 
files are being transferred. 


2.3 System Contigunat ion, 


Local was designed to operate on the Zenith model 100 
Microcomputers connected to the NPS Aegis local area 
network. 


2.4 System Organization. 


Local can have multiple connections existing with other 
computers simultaneously. Each connection executes 
independently of the others unless broadcast packets are 
used to send duplicate packets to all terminals in a 
‘group’. The system continuously monitors input fromeewe 
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keyboard and the concentrator while making repeated attempts 
Bowsend any outgoing packets to the concentrator. Very 
rarely does the system wait in a non-executing loop waiting 
for an input to trigger the next execution. 


2.5 Performance. 


All communication is via RS232 9600 baud connections 
which means large files will take a minimum of 1.2K bytes 
per second to transfer packets to the concentrator and the 
Same amount of time from the concentrator to another 
terminal or .6K per second. A 64K byte file will, 
therefore, take more than 100 seconds. If the system is 
performing multiple transfers simultaneously, obviously a 
slower performance time will be experienced. Approximately 
20% overhead exists in going through the concentrator 
processor. 


2.6 Data Base. 


The only file used by Local is info.txt which is a text 
file available to the user for helpful information in using 
the system. The file can be accessed while executing 
mrocal’. 


2.7 General Description of Inputs, Processing, and Outputs. 


fe7. lL ° LEnputs. 
a. User inputs. 

1. Login name. At the present time the user 
name is not used to protect access, only informational to 
who's on the system. The user's name is set to upper case 
upon entry. 

2. Commands. The commands available to the 
user are entered by a single keystroke. The first character 
of the command is needed for execution of the command (upper 
or lower case). 

3. Text input. After certain commands text is 
input from the user. All text input modes are executed and 
terminated the same. If, for instance, a message is to be 
sent, after entering the command 'talk', the text is input 
until the message is complete. At completion of the text 
input, control-Z is used to send the message. To review the 
message control-R is used. To exit the text input mode 
Without sending the message control-Q is used. Control-H or 
Delete is used to delete the last character. Full screen 
editing is available, therefore, trying to delete characters 
up one line will not appear on the screen, however, a review 
of the text input will show any deletions. File names are 
entered as text. Commas must be used between file names for 
Separation. Wildcards (?,*) may be used in file names. 


Loe 
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a. Messages. When messages arrive at a terminal 
they are displayed on the screen unless the user is in a 
text input mode, then they are saved until out of the text 
mode. 

b. File transfers. When files are transferred. the 
name of each file is presented on the screen at the 
beginning of transfer unless 'verbose' is OFF. In addition, 
each 512 bytes of the file sent or received is indicated by 
either a 'G'/'B' when receiving or '.' when sending. The 
'G'/'B' indicates whether the 512 bytes was received with a 
good checksum or bad checksum, respectively. 


2.7.3 Process. The process manages the connections, 
ensuring against muktiple commands over the same connection. 


2.8 When trouble occurs. 


Most of the problems will occur when a terminal does 
not know what state it 1s in. For instance, if a connection 
is established then the user enters “*C at any time, the 
local program is terminated, however, the concentrator is 
unaware of the termination. Subsequent execution of 
'local' may not boot-up properly. In this case, resetting 
the terminal (control reset) should re-initialize the 
terminal's state in the concentrator. If it still doesn't 
boot-up, the concentrator may have malfunctioned. Trying a 
different terminal would better confirm the latter. 


The printer can be connected to as another terminal or by 
use of the ‘"print' -commane- The print command is 
recommended since the printer will be freed up at 
termination of printing, where as, making a connection to it 
will prevent others from using the printer until the 
connection is broken. The printer is normally terminal 
number 0 and should always be in either listen or local 
state (when using netstat). 


It is possible, but rare, that all the memory blocks in 
either the concentrator or on a terminal, are used. The 
latter could be due to a packet not being received by a 
destination terminal while packets continue to be made and 
queued behind the first. In this case the terminal not 
accepting any more packets must be found and reinitialized. 


Error messages will appear on the screen when a 
checksum field is not correct upon receipt of a packet. If 
a terminal to terminal file transfer is taking place, 
retransmissions will resolve the problem automatically. 
Checksum errors are very rare. During testing) ie 
instance, 40,000 packets were sent without error. The key 
to this success are the send _trns and get_trns routines 
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Moimehmeensure no cContlict occurs when bi-directional 
transmissions occur. A possible cause of error is if a 
control code is sent just prior to transmitting a packet. 
In this case the control code could be mixed in with a 
packet. Any problems in using the system is directed to 
'problems', a file containing observed problems (or 
compliments) that may help on any revision of the program. 
This file can be created on any terminal. 
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APPENDIX F 


LISTING OF CONCENTRATOR PROGRAMS 


PACKAGE globall is 


--CONSTANTS: 

--control codes: 

term CONSTANT BYTE := BYTE(16#9D#) ; 22. 
code cls CONSTANT BYTE := BYTE(16#C3#); =--C 
code abort CONSTANT BYTE := BYTE(16#C1#) ; == 
code status CONSTANT BYTE := BYTE(16#D3#); --S 
code Arlog CONSTANT BYTE := BYTE(16#D2#); --R 
Coage Priog CONSTANT BYTE := BYTE(16#D0#) ; ae 
code Ftp CONSTANT BYTE := BYTE(16#C6#); --F 
code Loc CONSTANT BYTE := BYTE(16#CC#) ; --L 
code 1lstn CONSTANT BYTE := BYTE(16#CF#); --0 
Code ree Grint CONSTANT BYTE := BYTE(16#F0O#) ; el ©) 
code quit CONSTANT BYTE := BYTE(16#D1#); --Q 


Interrupt Control meodcsw Lor m1o0 mer 


disable CONSTANT BYTE := BYTE(16#00#) ; 
stat blk CONSTANT BYTE := BYTE(16#02#) ; 
rcv_pck CONSTANT BYTE := BYTE(16#04#) ; 
tx dma_dn CONSTANT BYTE := BYTE(16#06#) ; 
rcv_dma_dn CONSTANT BYTE := BYTE(16#07#) ; 


--ni3010 port addresses: 


cmd reg CONSTANT INTEGER := 16#00b0#;--note:if changing 
stat_reg : CONSTANT INTEGER := 16#00b1#;--port addrs also 
1 alate) : CONSTANT INTEGER := 16#00b2#;--change bus addr 
ntrpt reg CONSTANT INTEGER := 16#00b5#;--regs in assembly 
able reg CONSTANT INTEGER := 16#00b8#;--routine 'wr_ad' 
leg ent meeG CONSTANT INTEGER := 16#00bc#; 

1 ene 2 eg CONSTANT INTEGER := 16#00bd#; 

== © © conse codes: 

interface CONSTANT BYTE := BYTE(16#01#) ; 

internal CONSTANT BYTE := BYTE(16#02#); 

clear CONSTANT BYTE := BYTE(16#03#) ; 

GOTOEE CONSTANT BYTE := BYTE(16#08#) ; 

go_on CONSTANT BYTE := BYTE(16#09#) ; 

diagnostic CONSTANT BYTE := BYTE(16#0a#); 

rev_stat CONSTANT BYTE := BYTE(16#18#) ; 

ilele>.< elise CONSTANT BYTE := BYTE(16#28#) ; 

ld _ snd CONSTANT BYTE := BYTE(16#29#); 

reset CONSTANT BYTE := BYTE(16#3£#); 
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prom mode CONSTANT BYTE := BYTE(16#044#); 
E = 


cl insert_mode CONSTANT BYT BYTE (16#0e#) ; 
--iSBC86/12A port addresses 

monitor data prt: CONSTANT INTEGER := (16#D8#) ; 
monitor stat _prt: CONSTANT INTEGER := (16#DA#) ; 
max ad : CONSTANT INTEGER := 11; 

max tcb : CONSTANT INTEGER := 29; 

max mem blk : CONSTANT INTEGER := 30; 

num prts : CONSTANT INTEGER := 23; 

pcb head : CONSTANT INTEGER := num _prts + 1; 
threshold : CONSTANT INTEGER := 1000; 

min size : CONSTANT INTEGER := 60; 
blk_size 2 CONSTANT INTEGER <= 576; 


max flag byt CONSTANT INTEGER Mum, pres 77a, 


--~ASM machine instructions: 


eli : CONSTANT BYTE := BYTE(16#FA#) ;--clear ints 
sti : CONSTANT BYTE := BYTE(16#FB#) ;--start ints 
pushF : CONSTANT BYTE := BYTE(16#9C#) ;--push flags 
popF ; CONSTANT BYTE := BYTE(16#9D#);--pop flags 


--ASCII codes; 


asciiA : CONSTANT BYTE := BYTE(16#41}#) ; 

asciio : CONSTANT BYTE := BYTE(16#4F#); 

asciiS : CONSTANT BYTE := BYTE(16#53#) ; 

asciil ; CONSTANT BYTE ;:= BYTE(16#49#) ; 

asciiE : CONSTANT BYTE := BYTE(16#45#); 

asciiM : CONSTANT BYTE := BYTE(16#4D#); 

asciid : CONSTANT BYTE := BYTE(16#64#) ; 

asciir : CONSTANT BYTE := BYTE(16#72#); 

asciix : CONSTANT BYTE := BYTE(16#78#) ; 

asciiv : CONSTANT BYTE := BYTE(16#76#); 

asciiT 7 CONSTANT BYTE := BYTE(16754¢) ; 

CR : CONSTANT BYTE := BYTE(16#0D#) ; 

ie : CONSTANT BYTE := BYTE(16#0A#) ; 

TxRdy ; CONSTANT INTEGER ;:= 0; 

RxRdy : CONSTANT INTEGER := 1; 

DSR ; CONSTANT INTEGER := 7; 

DTR : CONSTANT BYTE := BYTE(16#27#) ; 

or ; CONSTANT BYTE := BYTE(16725#?) ; 
--programmable interrupt controller ports and codes: 

few prt : CONSTANT INTEGER := 16#00CO#; --initializa 
mew2 prt : CONSTANT INTEGER := 16#00C2#; --cntl word: 
icw4 prt ; CONSTANT INTEGER := 16#00C2#; --icw 

ocw prt : CONSTANT INTEGER := 16#00C2#; --oper cw 
icwl : CONSTANT BYTE := BYTE(16#13#) ; 

icw2 >: CONSTANT BYTE := BYTE(16#40#); 

icw4 : CONSTANT BYTE := BYTE(16#0F#) ; 
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Oocw : CONSTANT BYTE := BYTE(16#DF#) ;--mask other 
sba : CONSTANT INTEGER := 1; --interrupts 
Srer : CONSTANT INTEGER := 0; 

--TYPES: 

TYPE Pstates 1S 


(cls,r_init,rlogn,f init,rftp,1lstn,1 init, localWetoies 

TYPE Tstates rs 
(listen, syn_sent, syn_rcv, estab, fin _wait_1, fin wawee 
close wait, closing, last_ ack, time wait); 


TYPE array2 IS ARRAY (1. .2) OF byte; 
TYPE array4 IS ARRAY (1..4) OF byte; 
TYPE array6 IS ARRAY (1..6) OF vee; 


TYPE array5l2 IS ARRAY (1..512) Obie. ce, 
TYPE flg_ array IS ARRAY (0..max_flag_byt) OF byte; 
TYPE socket rec IS @REGORE 


1LJome Kol : array4; 
CCp ad os satan 27; 
END RECORD; 
TYPE send TS RECORD 
una ; array4; 
nxt > array4; 
wnd > diay 2, 
wll >: array4; 
wl2 >  ciseay as 
iss > array4; 
END RECORD; 
TYPE receive IS RECORD 
nxt > array4; 
wnd > array4; 
irs > array4; 
END RECORD; 
TYPE peb rec Me ekreonD 
is print : BOOLEAN; 
data prt ; sENEEGER; 
Stat pre ; ENTE GER? 
Cmae piste ; OSNEEGER; 
Disc @ : INTEGER; 
s prtq : integer; 
sent >: BOOLEAN; 
Pstate >: Pstates; 
time wait : INTEGER; 
ace >: BOOLEAN; 
TSprcazad S abaya: --local port address 
SypEELad : array2; ~-secondary port address 
sec act : BOOLEAN;--true if sec port active 
loc con >; INTEGER; 
buf in ; socket ree 
but Ingeme : INTEGER; 
PCbo per : INTEGER; 
snd ; Lig annay, 
ack ; flguareay, 
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Plembyt : INTEGER; 


Ecos : INTEGER; 
END RECORD; 

TYPE tcb_ rec IS RECORD 
prt _num > INTEGER; 
ioraec ; Tstates; 
HOC SOCK ; socket rec; 
rem sock - SOCkheen ree, 
snd ; send; 
rcv : receive; 
eeu ; Bea, 
retrnsQ >: INTEGER; 
END RECORD; 

TYPE ad resol rec IS.RECORD 
ip ad > array4; 
eth ad : array6; 
update : INTEGER; 


end record; 
HYPE eth peck IS RECORD 


gt Gweue Selsey 2 7 

frm len : INTEGER; 

to eth ad ieaielayio; 

fm eth ad > array6; 

type pck 3 GUS Se > 
ameriac .mcisicchy 2;,—-—See REC 826, Network 
ar pro : array2;--Information Center 
ae Chm. eciaigay2 ;——-puoiteation for details 
oleae 2 Beth; 
ar op ee = 4 be ar 
fm eth : array6; 
fm ip > array4; 
eOpecthe <= array6; 
16/2) ale) >: array4; 

END RECORD; 


TYPE mem_blk IS RECORD 


ai chess 5 henge e 
frm len : INTEGER; 
to eth ad 5 eliqnere err 
fm eth ad > array6; 
type pck > array2; 
ver ce bDYte; 
serv > byte; 
len ENO Ie Eerie 
id > array2; 
flac scanner, 
ene L >: byte; 
jspaoie ; Dye, 
ip cksum: array2; 
ipeser “> array4; 


1S 7) 


ip dst + apuaya 


Sen s atachyee, 

dst ; aban. 

seq > array4; 

ack : apmaycy 

epee : byte; 

Cer : byte; 

wnd 7 ar havicr 

tCCp xXSUM: array2, 

urg Sabra 

data ; alravere, 

cre > array4; 

spare ; integer; 

END RECORD; 

--VARIABLES: 
ioe ip ad > array4; 

--INITIALIZED TO CO 09 C8 04 IN initimem 
mem manag tbl : ARRAY (1..max_mem_blk) of INTEGER; 
peb ; ARRAY (0..pcb head) OF pcb rec; 
Geb >; ARRAY (0..max_Ccb) OF tcbh ree; 
mem > ARRAY (1..max_mem_blk) of mem_b1lk; 
eel al ; eth _pck; 
ad tbl ; ARRAY(1..max_ad) of ad resol rec; 
rcv_wnd : array2;--how many bytes we can receive 
Ficct iste ; INTEGER;-=nex€ tcp port address Comes 
used blk : INTEGER;--counts blocks in use 
free blk : INTEGER;--points to free blocks of mem 
Loe Gene ad >; array6; 
wrd ;: INTEGER;—-Used by Geveekcg for 
Startlof «loop ;: INTEGER; --memory block ptrs 
end, Of. leop : INTEGER; 
time cnt : INTEGER; 
ni3010 ok > BOOLEAN; 
ReEEpEe Sle: 


END=gleball; 

with globall; 

PACKAGE assylib is 

use globall; 
PROCEDURE wr_ad(ad ;: IN INTEGER) ; 
PROCEDURE outprt(prt : IN (INTEGER; bytes IN Svan 
PROCEDURE addarr(arrl : IN OUT array4; arr2 : IN array 


PROCEDURE subarr(arrl, are2 7) INSCUlsameay- @ 
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PROCEDURE cksum(addr, num_wrds : IN INTEGER; 
fees Ce eu sabrayZ); 

PUNGLGel aArhetooimnt(arr >; IN array2) RETURN INTEGER; 

PROCEDURE Inpre(pre : IN INTEGER} byt... OUT BYTE) ; 


HUNGHLON otstoit(num : IN BYTE; bit : IN INTEGER) 
RETURN BOOLEAN; 


PROCEDURE oOCclrbitimum : EN OUT BYTE; bit : IN INTEGER) ; 
PROCEDURE osetbit(num : IN OUT BYTE; bit : IN INTEGER) ; 
Moverrotw ohi(int = IN INTEGER) RETURN BYTE; 

FUNCTION olo(int : IN INTEGER) RETURN BYTE; 

mONeCTtON Ge equ(areY, arr2 : IN array4) RETURN BOOLEAN; 
BUNGIBON Lt equ(arrl, arr2 : ENearray4) RETURN BOOLEAN; 
FUNCTION g than(arrl, arr2: IN array4) RETURN BOOLEAN; 


FUNCTION 1 than(arrl, arr2 : IN array4) RETURN 
BOOLEAN; 


PROCHDURE Inegarr(arrl : IN array4; ant : IN INTEGER; 
aabe a OUL  drnay4 ) ; 
FUNCTION grtr_ of(int1, int2°: IN INTEGER) RETURN 
INTEGER; 
FUNCTION upper nibble(byt : IN BYTE) RETURN INTEGER; 


FUNCTION inc _nxt prt _ad(addr : IN INTEGER) RETURN 
INTEGER; 


EnOCEDURE get data(prt, addr : IN INTEGER; 
len : OUT INTEGER) ; 


PROCEDURE prt_hex(addr, num : IN INTEGER); 


PROCEDURE send trns(addr, Data_prt : IN INTEGER; 
antec iN OUT ENFEGER) ; 


PROCEDURE get trns(addr, Data_prt: IN INTEGER; 
amt : IN OUT INTEGER) ; 


PROCEDURE oput(strg : IN STRING) ; 
PROCEDURE onew_ line; 


FUNCTION xsum(addr, cnt : IN INTEGER) RETURN BYTE; 
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END assylib; 


PACKAGE ASSEMBLY assylib; 


pee 


;--asm package must jump code not intended as initialization 


PROC cksum; 


c 
f 
f 


y--ref RFC 793 pgli6,sep8sl 


POP bx 
POP ell 
POP Cx 
POP Si 
PUSH Sl 
PUSH Cx 
PUSH dia 
PUSH bx 
MOV ax, 0 
CLG 

again: MOV al,(si] 
INC Si 
MOV ah, [Sl] 
ADC GG, ax 
INC Si 
LOOP again 
NOT dx 
MOV ela: je cal 
INC di 
MOV [di],dh 
RET 


END PROC cksum; 


PROC wr_ad; 


--tested ok on 17 feb 86 


;--the checksum field is the 16 bit one's complement of the 
*--one's complement sum of all 16 bit words; for purposes 
;--of computing the ckecksum, the ckecksum field is zero, 


;return address 
;resultant array address 
;# of words to cksum 
;starting addr 

s;restore stack 


°szero total 


sada coencorcal 


71's complement of total 
;put result in array 


--offset 1s passed in aS a parameter to the NI3010 bus 


;--this procdure writes the 20 bit address of the item whos 


;--address registers 


esac pre 
hacen: 
Lvadipr tr 

AON e¢ di 
EOP ax 
PUSH lal 
MOV bx,ds 


MOV ax. bx 


EQU 


- EQU 


EQU 


OB9h ;--1f NI3010 port addrs 
OBAh ;--are changed, change 
OBBh ;--these as well 


;--return address 
;--address offset of memory block 
;--put return address back 


MOV e223 


SHR ob teh 
MOV eliced 
SHEL pe, CL 
ADD ax,)Dx 
JNC no_add 
INC ax 
mo add: OUT IL 22 | sopenesrre ik 
MOV al,ah 
fo) Ou Mipace bint 7a 
MOV ail ell 
OUT eeacwp ait, ae 
RET 


END PROC wr_ad; 


PROC outprt ; 

Beeecsted ok on 16 feb 86 : 
;--this procedure outputs the byte sent in parameter 2 to 
;--port address in parameter 1 
;——parameters are: 1. IN port address 
= Zon, byte Eo output 


= = 


= 


LOVE: LoD ;return addr 

POP ax spyte EO OuepMEein al 

POP dx ;port addr 

PUSH Joy ;put return address on the stack 
OUT dx,al ;output the byte 

RET 


END PROC outprt; 


PReeoc addarr; 


POP ax 

POP Sl 

POP di 
PUSH di 
PUSH si 
PUSH ax 

MOV ely (al 4 
INC di 

MOV oy] Ls [es a 
INC di 

MOV ah, (dij 
INC di 

MOV alia 
MOV dh, [si] 
INC Si 

MOV él, (eng 
INC Si 

MOV phy sis) 
IC) Ke Si 

MOV bl, {si} 
ADD bx,ax 


Hey ak 


LNG dx 
NOReCarcd:. 

ADD axes 

MOV [si],bl 

BEC Si 

MOV ([si},bh 

DEC si 

MOV ([si],dal 

DEC si 

MOV (si) pdb 

Reo 


END PROC addarr;} 


PROC subarr; 


POP ax 

POP Si 

POP di 

PUSH di 

PUSH si 

PUSH ax 

MOV ch, {di} 

INC ela: 

MOV rot Cd ize tn) 

EN¢E di 

MOV ah, (di} 

ENC di 

MOV aula (clang 

MOV ah (si) 

INC si 

MOV dl, (si] 

Nc si 

MOV bh, [si] 

INC Si 

MOV bl isi) 

SUB bx,ax 

JNC no car 

DEC dx 
Momear. 

SUB axrex 

MOV Sai, OL 

DEC si 

MOV [si],bh 

DEC Si 

MOV Tey acl! 

DEC Si 

MOV Tenhypecla 

Ri 


END PROC subarr; 


ey 


PROG arr to int; . 
*--parameters are: 1.IN 2 byte array, note: array 1S on 
>--stack vice address return integer value of array 


POP bx s--rtn addr 
POP ex 7=—arr 
PUSH bx 
MOV age ch 
MOV an,cl 
RET 
END PROC arr_to_ int; 
PROC ohi; 
POP bx 
POP ax 
PUSH bx 
MOV ade ah 
RET 
EMD PROC ohi; 
PROC Olo; 
POP bx 
POP ax 
PUSH bx 
RET 


END PROC olo; 


PROC inprt; 

;--tested ok on 16 feb 86 

;--this procedure inputs a byte from the port address 
;--in parameter 1 

;--parameters are: 1.IN port address 

—- 2.OUT byte read in from port 


POP bx ;~~return address 

POP lak ;~-output byte address 
POP ax ;--input port address 
PUSH ax 

PUSH ai 

PUSH bx 

IN al ax 

MOV (ela. pel 

RET 


END PROC inprt; 


Proc otstbit; 
;--this procedure checks to see if a bit specified in 
;—~—parameter Pa 
;--is set in the byte passed in parameter 1 
;--parameters are: 1.IN byte to test 
| a IN bpesto. test 
;-- RETURN: T/F 
POP di ;return address 
POP Cx aloe 
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POP bx ;byte 


PUSh ai 
MOV cise a: 
AND Gl, 07H ;mask numbers > 7 
SHL ce bem ion! shift left until bit iSite 
AND bx ,ax 
ayyA falsetstbit 
MOV ax,1 ;leave value for true in ax 
RET 
falsetstbit: 
MOV ax,0 ;leave value for false in ax 
RET 


END PROC otstbit; 


PROCS OCI TCT, : 

;--this procedure resets a bit specified in parameter 2 
;--for the byte passed in parameter 1 

;--parameters are: 1.IN byte to reset bit in 

ioe 2.IN bit to reset 


POP di ;return address 
POP ex Pople 

POP si ;address of number 
PUSH Sl 

PUSH Cx 

PUSH oul 

MOV Ge, 1: 

AND Gl 07H mask numbers > 7 
SHL axa L ;shift left until bit is founmge 
MOV bl, (st) | 

NOT ax 71's complainene 
AND Boxes 

MOV [Sijebe 

RET 


END PROC oclrbit; 


PROC osetbit; 

;--this procedure sets a bit specified in parameter 2 
;--for the byte passed in parameter 1 

;--parameters are: 1.IN byte to reset bit in 

os 2.IN bit to reset 


POP di sreturn address 

POP cx pane 

POP Sl saddress of number 

PUSH Sal 

PUSH ex 

PUSH ai 

MOV ob ani 

AND el, O7H ;mask numbers > 7 

SHL ase .el ;shift left until bit is foeume 
MOV be, (Si) 
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lop, neb,< 


[si],bl 


END PROC osetbit; 


PROC gt_equ; 


lagain: 


truel: 


falsel: 


END PROC gt equ; 


Lor 
POr 
POP 
PUSH 
MOV 
MOV 


igdehle 


PROC 1t_equ; 


back: 


true2: 


false2: 


EOP 
POP 
POP 
PUSH 
MOV 
MOV 
NG 
MOV 
INC 
MOV 
INC 
MOV 
INC 
SUB 
JC 
JNZ 
LOOP 
MOV 
RET 
MOV 
re 


truel 
ax,1 


ax,0 


;return 
;second array 
;first array 


;return 
;second array 
;first array 


1S 


END PROGCHIt equy, 


PROE 9 Fehan, 


iback: 


false3: 


crue: 


END PROC g_than; 


POE 


RET 


PROG oh than; 


againl: 


false4: 


true3: 


END PROC 1 than; 


PROC 2ne@acG, 


POLY 


sdlehd § 


ax, bx 
false3 
true 
lback 
ax,0 


ax, 1 


bx,ax 
false4 
true3 
againl 
ax,0O 


ay Greil 


“recurn 


,;second array 
;£1lrst abray 


sreturn 


,;second array 
fELYSt aeray 


= ( cia 


Jam= int a: 
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IN array4, 


IN INTEGER; 


arr2 OUT array4) 


POP ax s;--return addr 


POP an ;--output array address 
POP bx z=--int 
POP sil ;--input array address 
PUSH si 
PUSH bx 
PUSH di 
PUSH dx 
MOV en,[Si] 
INC si 
MOV Cl sl.) 
INC sl 
MOV ah, [si] 
INC si 
MOV al, [si] 
ADD ele 8p. 
JNC no car over 
INC cx 
no car over: 
MOV foan ch 
INC oe 
MOV aaa ed 
INC di 
MOV fdal yah 
Ie: dai 
MOV él) cul 
Re 


EMD PROC inc arr; 


meeengrtr Of;—--function grtr of(intl,int2) return intx 


POP ep nate. aslo 
POP ax pate? 
POP bx aguas 
PUSH ax 
CMP bx, ax 
JG iol OIL joys) 
RET Pimce Daggen 
mat big: 
MOV ax ox 
IR gyae 
mD PROC grtr of; 
PROC upper nibble; =—~fUnct Lone Uppeigml ob Le 
(byt : IN byte) return byte 
POP ax paien addi 
POP ax paae 
PUSH Se 
AND ape, OO £ OH 
MOV elle 
SHR ax,cl 
ial 


END PROC upper nibble; 


iy 


PROC inc nxt_prt_ad; --function returns an integer 
;--tested ok on 27 feb 86 


EGE ele 

EOE ax 

PUSH ai 

INC ax 

JNZ no ovrflw 

MOV ax,0400H 
no ovrflw: 

RET 


END PROC inc nxt prt ad; 


PROC get data; (prt : IN_INTEGER; addr > EN IN@tEGE 
. ; len : OUT INTEGER); 


thrshld EQU 100 
DSR EQU 80H 
rxRdy EQU 2H 
POP ax Pie 
POP Si ;addr of len 
POP di ;addr of storage area 
POP be ;dataport 
PUSH dx 
PUSH ell 
PUSH sl 
PUSH ax 
MOV bx, 0 
MOV ex, thrshid 
nextbyt: INC ax 
NotRdy: IN ralp len 8 pe 
AND al,DSR 
JZ done 
DEC CX 
JZ done 
IN al,ax 
AND aly E-Rnay 
JZ NotRdy 
DEG ax 
IN alia 
MOV Beloias cul 
INC di 
INC bx 
CMP bx O12 
JZ done 
MOV ex, Ehnrshid 
JMP nextbyt 
done: MOV [si],bx 
RE 


END PROC get_data; 


sks) 


PROC prntch; 


END PROC prntch; 


PROC prt hex; (addr : 


MOV 
MOV 
INT 
re 


asciispace 


again2: 


lowerl: 


EOP 
POP 
POP 
PUSH 
MOV 


IMP 
ADD 
GALE 


nibble2:MOV 


lower2: 


next: 


AND 
ChE 
JL 
ADD 
CALL 
JMP 
ADD 
CALL 
MOV 
CALL 
INC 
LOOP 


Gi alk 
ah, 02H 
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EQU 

ax 

cx 

Si 

ax 

al, [si] 
al,1- 
al,1 

Vi al 
al,1 
al,10 
lowerl 
ale So 
penteh 
nibble2 
al ,30H 
prntch 
al,[{si] 
al,OfH 
ely, APO" 
lower2 
all, 38H 
Disikeen 
next 
al,30H 
Drmech 


IN INTEGER; 


20H 


al,asciispace 


isdceh 
si 
again2 


mb) PROC prt hex; 


PROC send_trns; (addr, Data_prt : 


wait time 
fe2zs2 Gelay 


DTR 

TxRdy 

RxRdy DSR 

cir 
CLE 
POP 
POP 
POP 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


ax 
di 
ax 


vane? | 
1000 
400 
PAG) | 
ak 
82H 
Zio 


oren 


;amt 
7 Dacan pT ct 


IRA, 


num 


; IN INTEGER) ; 


IN INTEGER; 


IN OUT INTEGER) is 


POP si ;addr 


ISOS Iol Si 
PUSH dx 
Ee h eal 
PUSH ax 
INC ax 
IN a, ax 
AND al,DSR 
INZ send trnsD2 
MOV al,DTR 
INC ax 
INC ax 
OUT dx al 
DEC ax 
DEC a 
IN al,dax 
AND al,DSR 
JINZ send _trnsD ;--too soon former 
MOV bx,wait time 
MOV ex, (aur 
Send -ernsikii: 
IN alidx 
AND al,DSR 
JINZ send trnsl5 
DEC bx 
JZ send_trnsD 
JMP send trnsLl 
Send Se Bis 5: 
NOP — ;--this routine was inserted 
IN al,dax ;--after repeated tests in which 
AND al,DSR ;--an occasional timing problem 
JZ send_trnsD ;--would appear 
Send “CrEnel2: 
IN al,dx 
AND ail, DSR 
JZ Sends cerns. 
MOV aul, (sia) 
DEC ax 
OUT ax, al 
INC Si 
INC ax 
send trEnsis.. 
IN al,ax 
AND aly iecRay 
JZ Send, GENS 
LOOP Send. crnsk2 
MOV [dae x 
MOV Gx, Pa2o2, de kay 
send trnslLé4: 
NOP 
LOOP send trnsL4 


Send (eEnsp. 
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MOV al CLE 


INC ax 

INC ax 

OUT Gl al 

DEC ax 

DEC ax 

MOV cx,wait time 
send_trnsD1: | 

IN al, dx 

AND al,DSR 

JZ send trnsD2 

LOOP send trnsDi 
send trnsD2: 

Sat 

Sade 


mi PROC send trns; 


PROC get trns; (addr,data_prt : IN INTEGER, 
amt : IN OUT INTEGER) is 


cin 
EGE ax ea 05) 9 
RIG) a Si P= Salle 
EOP ax P= GA caepeEG 
SONS) lal FS Se\s che 
PUSH di 
PUSH ax 
PUSH Sil 
PUSH ax 
MOV cx, [S1] 
MOV lose 18, 
INC ax 
IN ae dax 
AND al,DSR 
JZ Fecprt aactab 
INC ax 
INC ax 
MOV aD TR 
OUT dx,al 
DEC dx 
DEC dx 
MOV an, 255 
aeceeprt dataL: 
IN al,dx 
AND al,RxRdy DSR 
JZ SeCeomeacdactal 1! 
AND al,RxRdy 
JNZ GetupELc aqcamm 
DEC ah 
JNZ GecrpEr data l 
JMP feteoet dacand 


134. 


Ger preeaadeau.: 
Die 
ay 
MOV 
ENC 
INC 
INC 
MOV 
LOOP 
Get prerwcdacay i: 
MOV 
IDS (e 
ee 
OUT 
Get pre tarcal: 
MOV 
ola 
RET 


END PROC Gee Rumnis; 


PROC oput; (strg 

monitor data 

monitor stat 
BOe 


Opuic la: 
OepucEl: 


OpUucD:= BREF 
END PROG opuec; 


: IN STRING) is 
EQU O0d8H 
EQU OdaH 

ax 

si 

ax 

eis si] 

fey ne G) 

Cxzcx 

oputD 

Si 

al,monitor stat 
alia 

oputLl 

al,{s1l] 

MOonltor data, al: 
Opucl2 


PROC onew_line;() is 


CR 
LE 


EQU 
EQU 
MOV 
MOV 
onew_lineL: 


OdH 
OaH 
bE CR 
Gx, 2 


al, monitor Star 
al,TxRdy 
onew_lineL 
ad. 

MoOnlton datayal 
jon bree 
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xsuml: 


LOOP 
saab 


PROC xsum; (addr : 


EOE 
POR 
ION 
PUSH 
MOV 
MOV 
XOR 
INC 
LOOP 
RET 


ner t 

END assylib; 
with globall; 
PACKAGE lib is 
use globall; 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


BND lib; 
PRAGMA condcomp (ON) ; 


onew_ lineL 


END PROC onew_ line; 


IN INTEGER, cnt : IN INTEGER) is 
ax 

Cx 

si 

ax 

al,0O 

eile petal] 

al,bl 

si 

xsuml 


END PROC xsum; 


OPUT(num : IN INTEGER) ; 


get memory (next: OUT INTEGER) ; 
give _memory(inx: IN INTEGER) ; 


perf cmd(cmd : IN BYTE); 


trn_ pcek(ad : IN INTEGER; size : IN INTEGER) ; 
resolve ad(ip_ad : IN OUT array4; 

Cebeacdes  OUL arrayo; rslt : OUT BOOLEAN) ; 
Getmce ounce (dmne.) IN OUT array2; 

io -SOULSIND EGER, found ; OUT BOOLEAN) ; 
peb_cls( prt_num: in integer); 


peb_abort(prt_num : IN INTEGER) ; 


teowmecls( nds + TN ENTEGER) + 


deuivateapret (pre : EN ENTEGER) ; 


give status(port : IN INTEGER); 


WITH assylib, globall; 
PACKAGE BODY lib IS 
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USE assylib, globall; 
--last updated 7 June 86 


PROCEDURE oPUT(integr : IN INTEGER) is 


Pat : INTEGER? 
num : INTEGER; 
Bye ae) galls, 


started : BOOLEAN; 


PROCEDURE prntnum(num : IN INTEGER) is 


Zero ; CONSTANT BYTE := BYTE(16#30#); 
one > CONSTANT BYTE := BYTE(16#31#); 
two : CONSTANT BYTE := BYTE(16#32#) ; 
three : CONSTANT BYTE := BYTE(16#33#); 
OU : CONSTANT BYTE ;s= BYTE(UGyo44), 
five ¢: CONSTANT BYTE := BYTE(1LG#35q)— 
S1x : CONSTANT BYTE := BYTE(16#36#) ; 
seven : CONSTANT BYTE := BYTE(16#37#); 
eight - “CONSTANT BYTE <= BYTE (167ec7 0 
nine ; CONSTANT BYTE := BYTE(16#39#) ; 
question: CONSTANT BYTE := BYTE(16#3F#) ; 
BEGIN 
LOOP 
InpEE (MOnLECr Stacwprae, aa 
EXIT WHEN otstbit(byt, TxRday je 
END LOOP; 
CASE num is 
WHEN 0 => outprt(monitor data_prt, zero); 
WHEN 1 => outprt(monitor data_prt,one); 
WHEN 2 => outprt(monitor data_prt,two) ; 
WHEN 3 => outprt(monitor data _prt,three) ; 
WHEN 4 => outprt(monitor data pre, teume 
WHEN 5 => outprt (monitor data prte7riveym 
WHEN 6 => outprt(monitor data _prt,six) ; 
WHEN 7 => outprt(monitor data_prt,seven) ; 
WHEN 8 => outprt(monitor data_prt,eight) ; 
WHEN 9 => outprt (monitor data prtjmaner, 
WHEN others => 
outprt (monitor data_prt, question) ; 
END CASE; 
END prntnum; 
BEGIN 
Ime += lateqr, 
started := FALSE; 
Ie int </0 THEN 
OPUT ("=") ; 
PND EF; 
IF int / 10000 > O THEN 
num := int / 10000; 
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prntnum(num) ; 


int := int rem 10000; 
started := TRUE; 

EN Deer? 

IF int / 1000 > 0 OR started THEN 
num 2= Int 7 1000; 
prntnum(num) ; 
int := int rem 1000; 
started := TRUE; 

MO II 

IF int / 100 > 0 OR started THEN 
NUM — ant / LOO; 
prntnum (num) ; 
inc 2] intscem 100; 
started := TRUE; 

BND Ie; 

IF int / 10 > O OR started THEN 
Mune. =otnt / lO; 
prntnum(num) ; 
iieec=s inc rem 10; 
started := TRUE; 

ENO eo ; 

num ;= It; 

prntnum(num) ; 

END oPUT; 


procedure get _ memory (next: out integer) is 
--AUTHOR: ALEC YASINSAC =——DPveri wel Geb 66 
--INPUT: 1. GLOBAL TABLE MEM MANAG TBL. 


eeeorPUT: 1. THE INDEX OF THE MEM ARRAY RECORD TO BE USED. 
= 2. THE GLOBAL TABLE MEM MANAG TBL IS UPDATED. 
3 GLOBAL VARIABLES 'FREE BLK' AND 'USED BLK'. 
4. GLOBAL VAR SND _WND IS MODIFIED IF MEMORY 
== USAGE GOES ABOVE 50% 
=-HXLERNAL MODULES CALLED: 1. NONE. 
SevooCRIPTION: GET MEMORY WILL RETURN THE INTEGER FROM THE 
meee LOBAT VARIABLE FREE BLK. FREE BLK IS THEN SET EQUAL TO 
SeeeMbM MANAG TBL(FREE BLK) WHICH POINTS TO THE NEXT AVAIL 
=—- BLOCK. THE GLOBAL USED_BLK IS INCREMENTED. CONTENTS OF 
See LHe USED INDEX MEM _ MANAG | Deotelosotbh tO ZERO.) INTS “ARE 
-- DISABLED AT THE BEGINNING AND ENABLED AT THE END. 
eeusea bik is global var that counts the number of memory 
--blocks in use. 
--free blk 1s a global var that points to next available 
--memory record. 


one half mem_blk : CONSTANT INTEGER := max mem blk / 2; 


begin See nG lech Tee Morky 
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asm pushF; _--save state of interrupter 


asm cli; -- DISABLE INTERSUETer 
if used blk > one_half mem_blk then-- MEANS MEMORY IS 
rev_wnd(1) := byte(0);--HALF FULL. RCV_WND = 0 STOPS. A 
rev_wnd(2) := byte(0) ;--REMOTE FROM SENDING. LAG TIME 
end if; -- WILL OCCUR BEFORE REMOTE HOST GETS THE MSG 
if free blk > O then 
next := free blk; --NEXT TO POINT TO NEXT AVAIL BEOeiS 
free blk := mem_manag_tbhl(next) ; 
--FREE BLK TO SUBSEQUENT AVAILABEL BLOCK. 
mem manag_tbl(next) :=0; -=-BLK IN USE. 
used blk := used _ blk + 1; 
else 
next := 0; - =-~IF MEMORY IS FULL, RETURN SZERes 
end if; 
asm popF; -- RESTORE STATE OF INTERRUPTS 


end get_memory; 


procedure give memory(inx: in integer) is 
==AUTHOR: ALEC YASINSAC --DATE: 16 FEB 86 
== NPs INDEX OF MEMORY BLOCK TO BE RETURNED. 
--OUTPUT: 1. UPDATED GLOBAL ARRAY 'MEM'. 
os 2. UPDATED GLOBAL ARRAY 'MEM MANAG TBL'. 

3. UPDATED VARS FREE BLK AND USED BLK. 

4. GLOBAL VAR SND WND IS MODIFIED IF MEMORY 
== USAGE DROPS BELOW 30% 
~-EXTERNAL MODULES CALLED: 1. NONE. 
--DESCRIPTION: GIVE MEMORY SETS FREE BLK EQUAL TO THE Sit 
-- PARAMATER AND SETS THE MEM MANAG TBL ENTRY INDEXEDR2: 
-- THE INPUT PARAMETER TO THE OLD FREE BLK. THE ‘USEDREEe 
-- COUNTER IS DECREMENTED. 


old: integer; 

--used_blk is a global var that counts the number of 
--memory blocks in use 

--free blk is a global var that points to the next 
--avallable memory record 


one third_mem_blk : CONSTANT INTEGER := max_mem_blk / 3; 
begin 

asm pushF; --save state of interrupts 

asm cli; 

Old := free blk; 


free blk:= inx;--SET FREE BLK TO POINT TO RETURNED BLOCK. 
mem manag _tbl(inx):= old;--SET MEM MANAG TBL ENTRY OF 
--RETURNED BLOCK TO POINT TO THE OLD FREE BEGGS 


used_blk := used_blk - 1;--DECREMENT USED_BLK COUNTER. 
if used_blk < one_third_mem_blk then -- MEMORY TIS 
rcev_wnd(1) := byte(02);--LESS THAT 1/3 FULL. RCV_WND= 
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rev wnd(2) := byte(00) ;--0020 ALLOWS REM TO SEND. LAG 
end if;--TIME OCCURS BEFORE THE REMOTE HOST GETS THE MSG. 
asm popF; --restore state of interrupts 
end give_memory; 


PROCEDURE perf cmd(cmd : IN BYTE) is 


err ; CONSTANT BOOLEAN ;:= FALSE; 
val 2 bee; 
prt ; INTEGER; 
BEGIN 
eutpre (cma reg,cmda) ; 
LOOP 


inprt(ntrpt reg,val) ; 
EXIT WHEN otstbit(val,0); 
END LOOP; 
inprt(stat_reg,val) ; 
IF INTEGER(val) > 1 THEN 
Mo OLOsOk s= err; 
END IF; 
END perf cmd; 
PROCEDURE trn_pek(ad : IN INTEGER; size : IN INTEGER) is 
=—alchor r 1 hartman 
aca te 15 feb 86 
--input parameters address of block to transmit 
-- size of block to transmit (# of bytes) 
--this procedure performs a DMA transfer of the block 
--designated to the NI3010 ethernet controller board 
val aby PE; 


BEGIN 
IF ntrpt = disable THEN 
ASM sti; 
wr _ad(adqd) ; 
Suinpre (nent req,ohi(size) ); 
Guecpre(! ent reg,olo(size) ); 
outprt (able reg,tx_dma_dn); 


ELSE 

ASM eli, 

LOOP 
EXIT WHEN ntrpt = rcv_pck; 
ASM Sie 
LOOP 

EEE Wena nerpt=s= rcv. pck; 

END LOOP; 7 
ASM eli; 

mND LOOP; 


ntrpt := disable; 
outprt(able reg,disable) ; 
ASM Sitan, 


Le) 7) 


wr_ad(ad); 
outprt(h cnt reg,ohi(sizeje 
outprt(l cnt_reg,olo(size)); 
ASM eri: 
ntrpt := tx_dma_dn; 
ajbhejenaie (sue) a “req, tn dma_dn) ; 
ASM stil; 
END IF; 
END Gashigpcic, 
PROCEDURE resolve ad(ip ad : IN OUT array4; 
eth_ad : OUT array6; rslt : OUT BOOLEAN) is 


--author r 1 hartman 
--date 15 Een ves 
--input parameter tnternet protocol address 


--output parameters physical ethernet address 

-- boolean indicating if the address was found 
--this procedure resolves the physical addr of a destination 
--Ethernet controller board by looking up the ip address 
--in the table. if the physical address is not known the 
--result will be false. 


found : CONSTANT BOOLEAN := TRUE; 
nax : INTEGER; 
BEGIN 

neax = 17 

rslt := NOT found; 

LOOP 


EXIT WHEN ndx > max_ad; 
IF ad tbl (ndx).update /— 0sTHa 
IF ip ad = ad _ tbl (ndx) (ip wads THEN 
eth ad := ad tbii(nax) erchmad, 


rslt := found; 
1D. @ BIL 
ELSE naxx )3= aex. + 21; 
END. b 
ELSE 
nadx :;= ndx + 1; 
END” EF? 
END LOOP; 


END resolve _ad; 
PROCEDURE get teb ndx(arr = IN CUT=areoa 
index : OUT INTEGER; found : OUT BOOLEAN) is 


--author r 1 hartman 

--date 18 feb 86 

--this procedure performs a double hashing function to £#nds 
-~the tcb record in the array. note: the max tcbh constame 
~~in global.spc must be a prime number in order to maximize 
--the number of records available. 


incr : INTEGER; 
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nt ; JNTEGER; 


BEGIN 
Paes aro tO int(arr); --Change array to integer addr 
incr := 0; 
index := int MOD max_tcb; 
found := TRUE; 
LOOP 
Peetew(indes) prt num > num prts THEN 
found := FALSE; 
BLT 7 
ELSE 
EXIT WHEN tcb(index).loc_sock.tcp_ad = arr; 
BND; - 
incr := int MOD max_tcb-1; 
index := (index + incr) MOD max_tcb; 
END LOOP; 


END get_tcb_ndx; 


Procedure pcb cls( prt _ num: in integer) is 
--AUTHOR: ALEC YASINSAC =—~DATE: FEB £936 
--INPUT: PORT NUMBER OF CONNECTION TO BE TERMINATED 
aaOUL PUT: 1. MODIFIED GLOBAL VARIABLES FROM THE PCB RECORD 
=— A. PSTATE 
a B. TIME WAIT 
-- C. BUF _IN CNT 

2. CNTLCHARACTERTO Z100 TO TERMINATE RLOGIN. 
S=OsocREPTION: THIS PROCEDURE REINITIALIZES FIELDS IN PCB 
-- TABLE TO ALLOW A NEW CONNECTION TO BE ESTABLISHED AND 
wae oENDS A CONTROL CHARACTER TO THE 2-100 TO TERMINATE THE 
-- APPLICATION PROGRAM ON THAT MACHINE. PRTQ AND 
gee DUF OUT PTR FIELDS MUST BE RESET BY TERMINATING ROUTINE 
-- AND STORED PACKETS HANDLED APPROPRIATELY. 


begin 
meepEc(pChb(pre num) .data prt,code cls); 
Peo(prt num).pstate := cls; 
peb(prt num).time wait := 0; 
peb(prt_ num).buf in cnt := 0; 

Ema pcb cls; 


Procedure pcb abort(prt_num : in integer) IS 


--DISCRIPTION: THIS PROCEDURE RETURNS ALL MEMORY LOCATIONS 
-- CONTAINING DATA FOR THE PRIMARY CONNECTION OF THE PORT # 
foo lLO BE ABORTED, CHANGE THE STATE TO CLOSED, INITIALIZE PCB 
== TIMEWAIT FIELD, AND SEND THE CHARACTER TO THE Z100 TO 
-- TERMINATE THE CONNECTION AS APPROPRIATE. 

gqadd, inx: integer; 
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found : boolean; 
begin 
while pcb(prt_num).prtq /= 0 
loop --DELETE DATA STORED FOR PORT AND RETURN TEReres 
qadd := mem manag thl(pcb(prt num) pees 
give memory (pcb(prt_num).prtq) ; 
pcb( pre num) -prtq):—— dace, 
end loop; 
if peb(prt num).sec act then 
pceb(prt_num).pstate := clsing; 
while pcb(prt_num).s prtq /= 0 
Loop--DELETE DATA ON SECONDARY CONNECTION: 
qadd:=mem_manag_tbl(pcb(prt_num).s prtq); 
give memory(pcb(prt_ num).s prtq) ; 
peb(prt_rnum).s_ prtq ;:= gqadd; 


end loop; 
else 
PED (PEG nun) {pSstaten— els, 
end sls, 
peb(prt num).time wait := 0; 


outprt(pcb(prt _num). Gata pre, codeue lc, 
end pcb abort; 
PROCEDURE tcb cls(ndx : IN INTEGER) is 
Der oe LNPEGER: 
BEGIN 
ASM pushF; 
ASM Gil 
LOOP 
per <= Cebindx) -reernse:, 
BAL? WHENSptr- — 20; 
tcb(ndx) .retrns® s;= mem manag seep. 
give memory(ptr) ; 
END LOOP; 
Cebi(nadx).prt numy.— 99; 
ASM —popF; 
END tebvels; 
PROCEDURE activate prt(prt : IN INTEGER) is 
BEGIN 
peb(prt).pcb ptr := peb(peb head) —pebarer, 
peb(peb head) -peb ptr s= pre, 
END activate prt; 


PROCEDURE give _status(port : IN INTEGER) is 


hdr len : CONSTANT INTEGER := 6; 

ndx : INTEGER; 

jOlek= ; INTEGER; 

found : BOOLEAN; 

listed : BOOLEAN; 

box >; ARRAY (1..max_mem_ blk) of BOOLEAN; 
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per : INTEGER; 
blk ; INTEGER; 
amt >: INTEGER; 
val ae op dp bal hee 


BEGIN ° 
@oPUT("sS prtO should be 0, = "); oPUT(pcb(port).s_ prtQ); 
@oNEW LINE; 

@ASM ei; -~the remaining code is temporary 
@listed := FALSE; 


@IF used blk /= 0 THEN 
@FOR 1 IN 1..max_mem_blk LOOP 


@box(i) := TRUE; 
@END LOOP; - 
@prt := free blk; 
@LOOP 
@EXIT SWHENM@ prt = 0; 
@box(prt) := FALSE; 
@prt := mem manag _tbhl(prt) ; 
@END LOOP; 
@oPUT("---The following memory blks are not free~-") ; 
@oNEW_ LINE; 
@oPUT ("dst scr seq ack kr 
@oput ("len cnt wnd") ; 
@oNEW LINE; 


@FOR i IN 1..max_mem_blk LOOP 
@IF box(i) THEN 

@oNEW LINE; 

@oPUT (INTEGER(mem(i).dst(1))); 

@oPUT(" gb 

@oPUT(INTEGER(mem(i).dst(2))); 

@oPUT(" ")\; 

@oPUT (INTEGER(mem(i).scr(1))); 

@oPUT(" Ts 

@oPUT (INTEGER(mem(i).scr(2))); 

GOPUT CYS) 

@FOR j IN 1..4 LOOP 
@oPUT(INTEGER(mem(i).seq(j))); 
@oPUT(" Ww) > 

@END LOOP; 

@oPUT(" "ys 

@FOR j IN 1..4 LOOP 
@oPUT (INTEGER(mem(i).ack(j))); 
@oPUT(" i a 

@END LOOP; 

GCopumc 3): 

@oPUT (INTEGER(mem(i).len(1))); 

@oPUT(" "); 

@OPUT (INTEGER(mem(i).len(2))); 

@oPUT(" wv) ° 

@oPUT (INTEGER(mem(i).ctl)); 


oA: 


@oPUT(" 


ee 


@oPUT (INTEGER(mem(i).wnd(1)));3 


@oPUT(" 


be 1 


@oPUT (INTEGER (mem(i).wnd(2))); 
@oNEW LINE; 


@END IF; 
@END LOOP; 
@END IF; 


IF peb( pert) sepsco. Oe 
get memory (blk); 
IF blk /= O THEN 


ptr := 1; 
mem(blk).data(ptr) := 
DEY <= per =a, 
FOR 1. IN 02. -nunepres snoen 
CASE pcb(i).Pstate is 
WHEN cls => mem(b1k) 
WHEN r_init =>mem(b1lk) 
WHEN rlogn => mem(b1k) 
WHEN f init =>mem(b1k) 
WHEN rftp => mem(blk) 
WHEN lstn => mem(blk) 
WHEN 1 init =>mem(b1k) 
WHEN local => mem(bl1kK) 
WHEN clsing =>mem(b1lk) 
WHEN others =>mem(b1lk) 
END CASE; 
DER 4 = PCr a 


BYTE (Nun pBRes)s, 


.data (ptr) 
.data (ptr) 
-data (ptr) 
. data (ptm) 
data (pen) 
data (tts) 
- data (DEr) 
-data(per) 
-.data (ptr) 
.data (ptr) 


get _tcbh ndx(pcb(i).1 pimegad indy, found, 
iF Lounas Tie 
mem(blk).data(ptr) := 


DEE 3 =) pew. ly, 
mem(blk) .data(ptr) 
Der 3—_ Der ta 


CASE tcb(ndx).Tstate is 


WHEN listen =>mem(blk).data(ptr): 


WHEN 
WHEN 


WHEN 
WHEN 


WHEN 
WHEN 
WHEN 
WHEN 


WHEN 


syn sent => 


mem (bIK)~daeat(per i. 


syn_rcv => 


mem(blk).data(ptr) 
estab =>mem(blk).data(ptr): 


fin wait _1 => 


mem (b1k) . 


fin Wwasen2e—- 


mem(blk). 


close Wale. 


mem(b1lK). 


closing => 


mem(blk). 


last_ack => 


mem(blk). 


time wait => 


Lg2 


data (ptr) 
data(ptr) 
data (ptr) 
data (ptr) 


data (ptr) 


bo 

K 

rF 

ry 

~~ 
WOON ANP WNHNR O 
Ce ee ee ee ee ee ee ee ee ee” 


peb(i).1 prt adie 


s= peb(1).1 prt ad(ze 


=BYTE(1); 
=BYTE(2); 


BYTE (3) 
BYTE (4) 


BYTE (S08, 
BYTE (oye 
BYTE(7); 
BYTE (ape 


BYTE (9); 


mem(blk) .data(ptr) := BYTE(10); 
WHEN others=>mem(blk).data(ptr):= BYTE(0); 


END CASE; 
Diemer — per + 17 
ELSE 
FOR i IN 1..3 LOOP 
mem(blk).data(ptr) := BYTE(0); 
pes t— per + 1; 
END LOOP; 
END IF; 
END LOOP; 
mem(blk).data(ptr) := BYTE(used_ blk); 


Dies 2— ptr +. 1; 
mem(blk).data(ptr) : 
pee := ptr + 1; | 


BYTE (max_mem_ blk) ; 


POR 1 UN O-.meax tcb LOOP 

IF tcb(i).prt_ num <= num_prts THEN 

amt := amt + 1; 

EI Dine ; 
END LOOP; 
mem(blk) .data(ptr) 
Die <= ptr + 1; 
mem(blk) .data(ptr) 


BYTE (amet) ; 


BYTE (max ECh) 7 


ASM ela: 

outprt(able reg,disable); 

ASM sti; 

Pereceema(revy stat) ; 

Bie. — per + 1; 

LOOP 
inpiMeGherpt reg,val) ; 
EXIT WHEN otstbit(val,1); 
IF otstbit(val,0) THEN 

inprt(stat reg,val); 


mem(blk).data(ptr) := val; 
Peres per + i; 
END IF; 
END LOOP; 
EMepintc(aole regq,ntrpt) ; 
mem(blk).wnd(1) := BYTE(port) ; 
Meno. whe 2) :— BYTE (pore) ; 
mem(b1lk).tcp xsum(1) := code status; 
Meon@otien. GceOuxsSum(2) s:= BYTE GD) ; 
Memiolkycurg¢@1) := ohi(ptrr) ; 
memcolk).urg(2) := clo(perr); 
mem(blk).tcp xsum(2) := xsum(mem(b1lk).wnd'ADDRESS, 


Piet midine hen) ; 
peb(pert).s prtQ := blk; 
SSeErree(pe (port) ace (pcb (pore). £lgq byt), 
BemQpOtey.f£1¢ 51&) ; 
Ssceble(peb (pert) -snd(peb(pert) .flg byt), 
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peb (port) .tlg bie 
BND LE 
ENDL ; 
END give_status; 


END Wher, 


PACKAGE ntrpthd is 
PROCEDURE assy _ntrpt_hdl; 
END ntrpthd; 


Witehe-neNy; . 

PACKAGE ASSEMBLY ntrpthd; 

Jp thle nee pea, 

--asm package must jump code not intended as initialization 


PROC assy NUrptl nar; 
CEL 
PUSHF 
PUSTi max 
PUSH bx 
PUSH cx 
PUSH Aas 
PUSH si 
PUSH di 
PUSH bp 
PUSH ds 
EUSH es 
CALE nerpeE nal 
BOP es 
POP ds 
POP bp 
POP di 
POP si 
POP ax 
EOP cx 
Per bx 
mer sax 
ECEr 
Sie 
Rew 

END PROC assy Nntrprcane se, 


shower sahercjene : 
y--initialization of interrupt vector into main memom, 


PUSH ds 


MOV bx,assy ntrpt_hdl 
MOV axG.0 
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MOV as,ax 


MOV Cleieen leery 
MOV rae bx 
MOV be7cs 
INC eal 

INC di 

MOV fai] , bx 
POP ds 


END ntrpthd; 
each globall; 
PACKAGE convblk is 
use globall; 


PROCEDURE conv_blk(blk : IN OUT mem_blk); 
END convblk; 
with ethrec; 
PACKAGE ASSEMBLY convblk; 
;--this procedure used to allow converting memory from type 
;--mem to type eth (see global.spc) 
jmp TIGL E 
eROC conv blk; 
JMP SE GY IONS 
BD PROC conv_blk; 
ad t : 
END convblk; 
package pcbrec is 
procedure pcb rev(inx, prt: in integer) ; 
procedure adv pcb state(nr : IN INTEGER) ; 


end pcbrec; 


with assylib, lib, globall; 
package body pcbrec is 


--FILE NAME: PCBREC. PKG 

--PROCEDURES CONTAINED: 1. PCB RCV. 

-- 2. ADV PCB STATE. 
35 
4 


--AUTHOR: ALEC YASINSAC 
> DN oR FEB 1286 
==EATERNAL REFERENCES; 
--GLOBAL1.SPC CONTAINS ALL GLOBAL VARIABLES AND TYPES. 


oS 


--LIB.PKG WHICH CONTAINS OUR UTILITY PROGEDULES 
--ASSYLIB WHICH CONTAINS ASSEMBLY UTILITY PROCEDURES. 


--INPUT: 1) 
= 2) 
~-OUTPUT: 1) 


--COMPILER: THIS PACKAGE WAS CODED TO COMPILE ON JANUS ADA 
—~-UNDER Celisice 
=—=DESCRIPLION, 


procedure pcb rev(inx, prt: in integer jer 

--AUTHOR: ALEC YASINSAC -=—-DATE:; FEE co 

--INPUT: 1. INX IS THE MEMORY BLOCK INDEX OF INCOMING Ea 
I 2. PRT IS THE PORT NUMBER BEING PROCESSED. 

=—-OUL PUL. ale FIELDS -MODIFIED IN THE GLOBAL TABLE PCB: 

i PSTATE, PRTQ, BUF OUT CNT, BUF (OU 

-— 2.) FeeeuD MODIFIED IN THE GLOBAL TABLE TCB: TSTATE 
--EXTERNAL MODULES CALLED: 1. NONE. 

--DESCRIPTION: 

-- THE DATA FROM THE PACKET WILL BE ADDED TO THE END OF @@aa 
-- QUE FOR THE PRIMARY OR SECONDARY CONNECTION. 


use globall, assylib; 
ind se dmceces: 


BEGIN 
if peb(prt).1l prt_ad = mem(inx).dst then 


ind = pcb (preyesprta; 
IF ind = 0 THEN --NOTHING ON QUE FOR PRI CONNECTION. 


PCDAPEE)= preg °= Inc 
ELSE 
while mem manag tbl(ind) /= 0 
loop --FIND END OF QUE FOR THIS) er 
ind := mem_manag_ tbl (ind); 
end loop; 
mem manag tbl(ind) := inx; --ATT NEW DATA TO QUE. 
END ER; 
else --PACKET NOT FROM PRIMARY CONNECTION. 


if peb(prt).s prt ad = mem(inx).dst then 
-~-PACKET IS FROM FTP DATA CONNECTIOCNe 
ind. := peb(pre)-s preq- 


IF ind = 0 THEN --NOTHING ON SEC CONNECTION SGGGe 
peb(prt).s preq <= rae 
ELSE 
while mem_manag_tbl(ind) /= 0 
loop --FIND END OF QUE FOR THIS )-Grs 
ind := mem_manag_tbl(ind); 
end loop; 
mem manag tbl(ind) := inx; --ATT DATA TO QUE. 
END IF; 


@oput(" s prtq = "); 
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Crna :=— peli prt) .s prtq; 
@loop 
Cpu ined); —oDpuc C=.) 7 
@exit when ind = 0; 
@ind := mem _manag_tbl(ind) ; 
@end loop; 
end if; 
end if; 
end pcb rcv; 


PROCEDURE adv_pcbh state(nr : IN INTEGER) is 
use assylib, globall; 


BEGIN 
CASE pcb(nr).Pstate is 
WHEN r_init => 
OPUT ("advancing Seace £O rllogn"); ONEW LINE; 
peb(nr).Pstate := rlogn; 
WHEN f init => 
OPUT( "advancing state to rftp"); oNEW LINE; 


peb(nr).Pstate := rftp; 
WHEN rftp => 
peb(nr).sec_act := TRUE; 


WHEN others => 
Clu MGA *<crrOn mine ddvapeomsedee "ji; ONEW LINE; 

END CASE; 
END adv_pcb state; 


end pcbrec;. 
PACKAGE tcprec is 

PROCEDURE tcp _rev(blk : IN INTEGER) ; 
ENPeccprec; 


with tcpsend,pcbrec,ipsend,assylib,1lib,globall; 
PACKAGE BODY tcprec is 
use tcpsend,pcbrec,ipsend,assylib,lib,globall; 


PROCEDURE pcb clsing(prt : IN INTEGER) is 


BEGIN 
pceb(prt).Pstate := clsing; 
meb(prt).time wait := 0; 
peb(prt).sent := FALSE; 


END peb_clsing; 


PeeckDURE tcp rev(blk : IN INTEGER) is 


iia bit : CONSTANT INTEGER := 0; 
syn bit cols TANT ENTECER := 1; 
esi bit : CONSTANT INTEGER ;:= 2; 
mom bit >: CONSTANT INTEGER := 3; 
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ackwbie ;: CONSTANT INTEGER := 4; 


fin ; CONSTANT BYTE := BYTE(1); 

syn : CONSTANT BYTE := BYTE(2); 

CSt : CONSTANT BYTE := BYte Gare 

Eetpacn : CONSTANT BYTE := BYTE(16#14#) ; 
psh ; CONSTANT BYTE ?= "SY Esco 

ack ; CONSTANT BYTE := BYTE(16); 

syn_ack : CONSTANT BYTE +?= BYTE (i672 on 
oy Sp : CONSTANT BYTE := BYTE(16#50#); 
SOLES ¢: CONSTANT BYTE s= BYTE( 16766000, 
fin rec, syn rec, rst rec, ackwmce : BOOLEAN; 
Iint,nr,ackn,bikl: INTEGER. 

sent : BOOLEAN; 

found : BOOLEAN; 

Seq. ken ;: INTEGER; 

Dir : integer; 

byt we BY LE: 


PROCEDURE conv_bl1k snd(blk: IN INTEGER; sent: OUT BOOLEAN) is 


BEGIN 
mem(blk).ip dst mem(b1lk).ip scr; 
mem(b1lk).ip scr := loc _ip ad; 
mem(blk).ip cksum := mem(b1k).dst; --temp storage 
mem(b1lk).dst mem(b1lk).scr; 
mem(blk).scr mem(b1lk).ip cksum; 


mem(b1kK).ttl BYTE (0) ; 
int := 6+(upper nibble(mem(blk) .off) *2) ; 

--num of words to ckSsum 
mem(b1k).ip cksum(1) BYTE(0)7--pg. 17 of TCP manuam 


mem(b1k).ip cksum(2) BYTE((int - 6)*2); 


--tcp header len in byt 


mem(blk).wnd := rcev_wnd; 
mem(b1lk).tcp xsum(1l) := BYTE(0); 
mem(b1lk).tcp xsum(2) := BYTE(0O); 


cksum(mem(b1k) .ttl'address,int,mem(blk).tcp xsum) ; 
ip send(blk,sent) ; 
give memory (blk) ; 

END conv >ikK snd, 


PROCEDURE send ack(blk : IN INTEGER; nr ; IN INTEGER? 
sent :; OUT BOOLEAN) is 


blk1l : integer; 

BEGIN 
mem(blk).ip dst := mem(bl1k).ip scr; 
mem(b1lk).ip scr := loc ip ad; 


mem(b1k).scr; 
tcb(nr).lo0c seek tepmad: 
tcb(nr) .snds nia 
Ccbh(nYr) . reve, 

ONE. 6S) 


mem(b1lk).dst 
mem(blk).scr 
mem(blk).seq 
mem(b1K) .ack 
mem(blk).off 
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mem(blk).ctl = ack; 


mem(blk).ip cksum(1) := BYTE(0) ; 
mem(b1lk).ip cksum(2) := BYTE(20); 
mem(blk).wnd := rcv wnd; 


cksum(mem(blk) .ttl'address,16, 
mem(blk).tcp xsum) ; 
ip send(blk,sent) ; 
give memory (blk) ; 
END 
send_ack; 


PROCEDURE update retrnsQ(nr : IN INTEGER; 
ack : IN OUT array4) is 
BET : INTEGER; 
BEGIN 
LOOP 

ber += (CeCbi Mr). Letrnse,; 

EXxLT WHEN Der — 07 

EF 1 than(mem(ptr) .seq,ack) THEN 


tcb(nr).retrnsQ := mem_manag tbl(ptr); 
give memory (ptr) ; 
END IF; 
END LOOP; 
BND update retrnsQ; 
BEGIN --begin procedure tcprec 
get tcbh ndx(mem(blk).dst,nr, found) ; 
seg len := arr_to_int(mem(blk).len) - 20 - 


(upper nibble(mem(blk).off) * 4); 
meeround THEN 
byt := mem(blk).ctl; 


meaerec += Otstbait(byt, fin bit); 
syn rec := otstbit(byt,syn bit); 
moe rec s= OtStbit(byt,rst bit) ; 
Petarrec := OCSEDIE(byt,ack bit) ; 


@esE tcb(nr).Tstate is 


WHEN listen => 

if rst_rec then 
give memory (blk) ; 
eas EUR) 4 

end if; 

if ack_rec then 
mem(blk).seq := mem(blk).ack; 
mem(blk) .off := off5; 


mem(blk).ctl := rst; 
conv_blk_ snd(blk,sent) ; 
RETURN ; 

END LE; 


if syn_rec then 
inc_arr(mem(blk).seq,1, 
cepmgnr).. PCV enxt) ; 


LSS 


tcb(nr).rev.1rs += mem(Siigeisceur 


teb(nr) .Tstate °—= Ssynmeew 
tcb(nr).rem_sock.ip ad := mem(blk).ip scr; 
tcb(nr).rem_sock.tcp ad.:= mem(b1Kk).scr; 


tcb(nr) .-sndeiss- 
tcbh (nw) aecyv anaes 


mem(blk).seq : 
mem(b1lkK).ack : 
mem(blk) .off Offic, 
mem(bIK) -etl := synvderw, 
mem(blk).data(1) := BYTE(2) 


mem(blk).data(2) := BYTE (4) ; 
mem(blk).data(3) := BYTE. 
mem(blk).data(4) := BYTE(0O); 


conv bikesrd(olk, sentry, 
ing arr(tebinr) .snd, tscsra- 
Eee ws. lock), 
tceb(nr) .snd.una:= teb(nr).enmdeiss, 
RETURN; 
end if; 


WHEN syn_sent => 
--first check for ack 
IF ack rec AND NOT rst_rec THEN 
IF 1t equ(mem(blk) .ack,tcb(nr).snd.iss) OR 
g than(mem(blk) .ack,tcb(nr).snd.nxt) THEN 
mem(blk).seq := mem(b1lk) .ack; 


mem(blk) .off Orrs, 
mem(blk).ctl := rst; 
conv_blk_snd(blk,sent) ; 
RETURN ; 
END IF; 
END IF; 


IF 1t equ(tcb(nr) .snd-una,mem(bilk)2ack jap 
lt equ(mem(blk) .ack,tcb(nr) .snd.nxt) THEN 
-~-second ckeck for reset 
Pn. ESE beCeat sh 
pcb clis(tcb(ns) epee mum, 
PCD UClS (NE): 
OPUT ("abort connection due to rst") ;oNEW LINE; 
give memory (blk) ; 
HEC DE t= —ceV pel, 
RETURN; 
END? LE; 
END IF; 
--skip security and precedence 
--fourth check forys nm 
LF syn rec THEN 
inc arr(mem(blk) .seq,1,t¢cb(nr) . rev. newer; 


tcb(nr).rcv.irs := mem(blk).seq; 
IF ack rec THEN 
tceb(nr).snd.una := men(olh)@aca 


IF g_ than(tcb(nr) .snd- una 
teb(nr) .snd. iss) pee 
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tcb(nr).Tstate := estab; 


acwepen Staterteb(nr).prt num); --in pebrec 
mem(blk).seq := tcb(nr).snd.nxt; 
mem(b1lk).ack := tcb(nr).rcv.nxt; 
memi@>ilk).OfE := off5; 
mem(blk).ctl := ack; 
COMveolicuoma(OLK, seme) s, 
RETURN; 

Boor 
teb(nr).Tstate := syn_rcv; 
mem(blk).seq := tcb(nr).snd.iss; 
mem(blk).ack := tcb(nr) .rcv.nxt; 
mem(blk).off := off6; 
mem(blk).ctl := syn ack; 


mem(bitk).data(1) := BYTE(2); 


mem(blk).data(2) := BYTE(4); 
mem(blk).data(3) := BYTE(4); 
mem(blk).data(4) := BYTE(0); 


eanverolicesma (oli, Smt), 
RETURN; 
END IF; 
END IF; 
BND IF; 


WHEN syn_rcev..time_wait => 
--first ckeck the seq number 
IF seg len < 0 OR seg _ len > 512 THEN--error fm sender 
OoPUT("sSeg len out of range"); ONEW_LINE; 
send ack(blk,nxy sent) ; 
RETURN; 
END IF; 


IF seg _ len = 0 THEN 
IF mem(blk).seq /= tcb(nr).rcv.nxt THEN 
Piotr est rec PHEN 
OPUT("seg.seq /= rcev.nxt, seg_len = 0"); 


ONEW LINE; 
send ack(blk,nr,sent) ; 
RETURN; 

ELSE 
give memory (blk); 
RETURN ; 

END IF; 

END IF; 
ELSE SeScgelen. = 0. 


PP aeaneOnnic( tevmsvinad) = O THEN 
LR eNOleGoc Tec elniiN 
oPUT("sending ack, rcv_wnd = 0"); ONEW_ LINE; 
Sendpacik(bik ny, sent) ; 
RETURN ; 
ELSE 
give memory (blk); 


Zod 


RETURN ; 
END IF; 
ELSE 
IF tcb(nr).rcv.nxt /= mem(bilk) {seq fae 
LF NOT Tecterece Tia 
OPUT ("seg seq /= rev.nxc, seg len >a 


ONEW_ LINE; 
send ack(blk,nr,sent) ; 
RETURN; 
BLSE 
give memory (blk) ; 
RETURN; 
BND Lr 
END= ir; 
END IF; ; --ends if rcv_wnd = 0. 
END IF; --ends if seg len = 0. 
--second, ckeck for rst 
TE GSGerecelinn --pg206 


CASE tcbh(nr).Tstate is 
WHEN syn rev => 
tceb(nr).Tstate := lasten-: 
WHEN estab..close wait => 
if mem(blk) .dst = pcb(tcb(nr).prt num) .s prime 


then 
peb(tcb(nr) .prt_num).sec_act := false; 
else 
pcb abort (Ceb(nn). eaemnunge, 
end if; : 
cep Cls'(nE). --aborting the tcb 


oPUT("aborting connection rst_rec"); ONEW_LINE; 
WHEN closing..time wait => 
iqclor fees Gave) / 
OPUT ("aborting connection rst_rec"); oNEW_LINE; 
END CASE; 
give memory (blk) ; 
Neat. >= rev spck, 
RETURN ; 
END IF; =-ends lf Estaree. 
--skip security and precedence 
--fourth, ckeck i6r Symenee 
if Ssyneeee THEN ==DG e207 
CASE tcb(nr).Tstate is 
WHEN syn_rcev..time wait => 
oPUT ("Sending reset - condition 2"); oNEW_LINE; 
mem(blk) .seq tcb (nr) 2snd- wecr 
mem(blk) .ack tcb (nr). new nce, 
mem(blk) .off OEEor, 
mem(b1lk).ctl rst; 
conv_blk_ snd(blk,sent) ; 
RELORN; 
END CASE; 
END Sir 
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--fifth, check for ack 
HEM ele <e icfeto; Biel) 
CASE tcb(nr).Tstate is 


WHEN syn rcv => 

IF NOT(1t_equ(tcb(nr).snd.una,mem(blk).ack) AND 

1t_ equ(mem(b1lk) .ack,tcb(nr).snd.nxt)) THEN 
oPUT("sending reset - condition 3"); 
ONEW_ LINE; 
mem(blk).seq : 
mem(blk).ack : 
mem(b1lk) .off Cet On 
mem(blk).ctl Bot, 
Com olga ha loli, Sent) ; 


mem(blk).ack; 
ECD (Nr) .-2CVeixt 7 


lou ou 


RETURN ; 
ELSE 
tcbh(nr).Tstate := estab; 
adv_pceb state(tcb(nr).prt_num); 
EID LE; 


WHEN estab..closing => 
Mi vimcnamereothiry.snid.una,mem(blk).ack) AND 
mem(blk).ack = tcb(nr).snd.nxt THEN 
tcb(nr).snd.una := mem(blk).ack; 
update retrnsQ(nr,mem(blk)-.ack) ; 
IF 1 than(tcb(nr) .snd.wll,mem(b1lk) .seq) 
OR (tcb(nr).snd.wll = mem(blk).seq AND 
It equ(tcbh(nr) .snd.wl2,mem(blk) .ack) ) 
THEN 
Eeb (nz) .sndswnd 
tcbhi@nr).snd.wll 
EChbiGnr).snd<wil2 
lB) 1EI 
CASE tcb(nr).Tstate is 


mem(b1k) .wnd; 
mem(blk) .seq; 
mem(blk) .ack; 


WHEN estab => null; 


WHEN fin _wait_1 => 
fee, rec THEN 
Pelinr).istace :— fin walt 2; 
END I8; 


WHEN fin_wait_2 => 
pebaels (res (nr) pre mum); 


WHEN close wait => null; 


WHEN closing => 
Preamenuolmjeaack — ceb(nr).snad.nxt THEN 
tcb(nr).Tstate := time wait; 
END IF; 7 
END CASE; 
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END ae 


WHEN last _ack => 
IF mem(blk).ack = tcb(nr).snd.nxt THEN 
peb clis(tceb(nr) -pre nuns 
ECD. € RS tie, 
oPUT("aborting in last_ack"); oNEW DEE 


ntrpt >= rcev_pck; 
give memory (blk) ; 
RETURN ; 

END IF; 


WHEN time wait => 
peb cls(tcb(nr).prt_num) ; 
CO 7ClS (ie a, 
oPUT ("aborting in time _wait™) 7 "GNEW Lilie 


NEEDEs. = LCV opek, 
give memory(blk) ; 
RETURN ; 
WHEN others => null; 
END “CASE; 
ELSE --no ack received. 
give memory (blk) ; 
RETURN? 
END ey --ends if ack_rec. 


--skip check for urg 
--seventh, process the segment 
== eee poe2o 

IF seg len > O THEN 

CASE tcb(nr).Tstate is 


WHEN estab..fin wait 2 => 
inc arr(tcb(nr).rcv.nxt,seg len,tcb(nr) .reveneeame 
inc arr(tcbh(nr).rcv.wnd,seg len,tcb(nr) .rcv -wneje 
get memory (ackn) ; 
if ackn > O then 


mem(ackn) .ttl := BYTE(0); 
mem(ackn).prot := BYTE(6); 
mem(ackn).ip cksum(1) := BYTE(0); 
mem(ackn).ip cksum(2) := BYTE(20) ; 
mem(ackn) . ip_ scr := loc ip ad; 
mem(ackn) .ip_ oe >= mem(blk). 1p Scr, 


mem(ackn) .dst 
mem(ackn).scr 
mem(ackn) .seq 
mem(ackn) .ack 


= mem(blk).scr; 
tch(nr) .toc sock. tepmady 
tcbh( nr). smeeneas; 

tch (ms) . rey nae, 


mem(ackn) .off GEES; 
mem(ackn).ctl ack; 

mem(ackn) .wnd rcv_wnd; 

mem (ach). cep. xsum (1) c= SSVI CO): 
mem(ackn).tcp xsum(2) := BYTE(0O); 
mem(ackn) .urg(1) := BYTETO je 
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Mem(aciwn) .urg (2) := BYTE(0) ; 

cksum(mem(ackn) .ttl'address,16, 
mem(ackn).tcp_xsum) ; 

ip send(ackn,sent) ; 

give memory (ackn) ; 


mem(blk).frm_len := seg_len; --# of data bytes 
mem(blk).spare := 1; --start of data 
pesmeery (olk pecs (nr) “pres num).; 

else 
ine io 

end if; 


WHEN close wait..time wait => 
give memory (blk) ; 
RETURN; . 


END CASE; 
END IF; 


--eighth, check for fin 
Pete rec SHEN 
_ IF tcb(nr).Tstate=listen OR tcb(nr).Tstate=syn sent 


THEN 
give _ memory (blk) ;. 
Hoppe. — eeV Pei; 
RETURN ; 
ELSE ; 
PiCmoe Caco Mia se Vera, ) cel ak). rev.nxt) ; 
oPUT("Connection closing") ; ONEW LINE; 


IF seg len > 0 THEN 
get_memory (blk1) ; 
IF blk1 /= 0 THEN 
mem(blk1) := mem(blk); 
ELSE 
RETURN ; 
END EF; 
ELSE 
bikia:= bik; 
END IF; 
CASE tcb(nr).Tstate is 
WHEN syn _ rcv..estab => 
Sencmaem io bcl mr ,Semitin, 
tcb(nr).Tstate := close wait; 
if eCo@iabrloc SGeGk.tecp lad = 
Ped (ces) abiscmimum).S prt sad then 
PepVeecb(nr)-pre num) <sec act := false; 
Eepmerose (peo (ECcbinr) spec num).s prt ad); 
CebweEs (nr); 
else 
pepmetsing (ECS (ne) spre num) 7 
end: ak > 
WHEN fin_wait_1 => 
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IF mem(blk) .ack = teb(nr) .Grev snes) 


tcbh(nr).Tstate := time wage, 
Bist 

tcbh(nr).Tstate := eclosimne- 
END IF; 


WHEN fin wait 2 => 
teb (nae tate. 


time wait; 


WHEN close wait..time wait => null; 


END CASE; 


RETURN; 
END If; 
END” LE 


=-end 1£ finwuee- 


1033 Seg_ len = 0 THEN 
give a 


END Lk 
END CASE; 
ELSE 


--no tcb entry for tcp dst addrecce 


oPUT("sending reset - tcb not found"); oNEW LINE; 


mem(blk).ip dst 
mem(blk).seq := 
mem(blk).ack := 


>= mem(b1k).seq; --temp storage 
mem(blk) .ack; 
mem(b1lk).ip dst; 


inc_arr(mem(blk).ack,seg_len,mem(b1k) .ack) ; 


mem(bik) .off <= Oans, 
mem (DIK) .ctl j=smstmack;, 
conv_blk_ snd(blk, sent) ;-- sending bad tcb ingen 
RETURN; 
END? EE; 
EUeCp Fev; 
E teprec; 


PACKAGE iprec is 


PROCEDURE ip rev(blk : IN INTEGER); 


END “i prec; 


W1lth teprecslib,dqlobabl- 


PACKAGE BODY iprec is 


use tcprec,lib,globall; 


PROCEDURE 1peme (ok 


IN INTEGER) is 


arpa ver : CONSTANT BYTE := BYTE(16#45#) ; 
arpa prot : CONSTANT BYTE := BYTE(16#06#) ; 
ag ue : INTEGER; 

BEGIN 


IF mem(blK).ver /= arpa versa 
give memory (blk); 


RETURN ; 
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BND LF; 


IF mem(blk).frm_len > 576 THEN 
give memory (blk); 
RETURN ; 

END IF; 


fmnen(olk).prot /= arpa prot THEN 
give _memory(blk) ; 
RETURN; 

END IF; 


IF mem(blk).ip dst /= loc_ip ad THEN 
give memory (blk) ; 
RETURN; . 

END LF; 


eep rcv (ilk) ; 
END ip rcv; 
END iprec; 
with globall; 
PACKAGE ethrec is 
use globall; 


BReECEDURE eth rev(blk : IN OUT éth_ pck); 
END ethrec; 


ween lib,globalil; 

PACKAGE BODY ethrec is 

use 1ib,globall; 

--this package handles the packets that don't have an arpa 
--protocol structure. there are two types to handle, 

-- 1. broadcast packets sent to us asking for our ethernet 
a physical address and 

-- 2. packets addressed to us giving us the sender's 

-- physical address (ie. in response to our request for 
=—— their address 


eeexrh eth peck IS RECORD 


os PMS teu >; array2; aqoeCem Mn Coc Gna , 
eeaoi-frm len ; INTEGER; a cevomnme tito Center, 
eee6CO ~hCeth ad > array6; one(oyig’ (= 1etelal Es 

—— Pech ae > array6; pao epane cokL—NIC 
ae fEyVper pel ec iniscly 2; 

cing ahr Seasisaly.2, 

= elle) Snes, Swanlay2, 

i cdiaelen Seeciana 2 7 

= nul 5 ea, 2 

a ar op >: BYTE; 

= fe Tree ena > array6; 

== Ene 1p searray 4 ; 
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== Toner : array6; 

-- soy alfs >: array4; 

SS END REG@GRD 

PROCEDURE eth rev(blk : IN OUT" cthipek ma. 


max int ; CONSTANT INTEGER := INTEGER (16#47FFF#) ; 
mex : INTEGER := 1; 

oldest : INTEGER; 

BEGIN 


IF blksto ip — leekipecda ina 
IF DIK. ar sone BYITE(!)- Tae 
eth. Co etnvads seek fms cim, 
eth. ar Opes = by i 2); 
eth.to_eth := blk.fm_eth; 
etnecon here ollie seit ate) § 
trn “peck (eth. to etn ad'address,min size); 


ELSE 
NEEPE 3= rev epen, 
ENDIF; 
outer : LOOP 
TP eG col Gnas. update = 0 THEN 
ad tbl (ndx)-ip ad := bik siamese. 
ad _ _tbl(ndx).eth_ad := blk. fm_ eth; 
ad tbl (ndx).update := nxt prt ad; 


inner : LOOP 
nas $= nex yee; 
EXIT outer WHEN ndx > max_ad; 
IF blk.fm_ip = ad _tbl(ndx). ip ad THEN 
ad _ tbl (ndx) -update := 0; 
EXIT outer; 
END LE? 
END LOOP inner; 
ELSE 
Naxx Ss = "Nae 
IF ndx > max_ad THEN ==nNo) TOOMN ee remae 
oldest := max int; --remove oldest 
FOR i IN 1..max ad LeGEr 
IF ad _thl(i).update 
< oldest THEN 
ney 3 = 
END IF; 
END LOOP; 
ad_ tbhl(ndx).ip ad := 
ad tbl (n@x) -cthn jade: 
ad thl (ndx) .update: 
Ew OWeer, 
ENDS; 
ENDI EE, 
END LOOP outer; 
ELSE 
NErDEss— bevy pck, 
END SIE; 


1 
= blk. fm eth; 
= nxt_prt ad; 
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END eth rcv; 
END ethrec; 
PACKAGE rcv is 


SP OChmURE Merpt hdl; 


END rcv; 


Poem convblk,iprec,assylib,1lib,globall; 
PACKAGE BODY rcv is 
use convblk,iprec,assylib,1lib,globall; 


PROCEDURE ntrpt_hdl is 

--author ee a Geld lh 

-~~date 22 feb 86 

--this procedure handles interrupts from the NI3010 ethernet 
--controller board. the 4 types of interrrupts are: 

— IL gle Melets< received a packet from ethernet 

-- Zee Maat) DMA done on incomming packet 

-- 3. tx_DMA dn DMA done on outgoing packet 

-- 4. disable when the interrupt hdlr xmits a packet 
val — Jerabae 


BEGIN 
outprt(able reg,disable) ; 
GASE NeErpe IS 


WHEN disable => 
perf cmd(lid_snd) ; 
Nespes— ECV peck; 


WHEN rcev_pck => 
get memory(wrd); 


IF wrd = 0 THEN --no space avail 
OPUT("no memory blocks available!"); oNEW LINE; 
nNerpt := rev peck; 
Ouupre (able (reg, rcv peck); 

ELSE 


wr_ad(mem(wrd) 'address) ; 
outprt(h_cnt_reg,ohi(blk_size)); 
SCuleptc (iucmerreg,olo(blik size) ); 


ntrpt := rev_dma dn; 
SUEpre(able req, rcv edma dn) ; 
BND-IF; 


WHEN rcv_DMA dn => 
ntrpt := disable; --for possible trns 
IF mem(wrd).type pck(1) = BYTE(16#08#) THEN 
IF mem(wrd).type pck(2) = BYTE(16#00#) THEN 
mee wal wie) 
ELSE IF mem(wrd).type pck(2)=BYTE(16#06#) THEN 
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conv_blk(mem(wrd) ) ; 


give memory (wrd) ;--eth_rcev can't do 
END IF; 
END Sere, 
BES 
give memory (wrd) ; 
END IF; 
ASM Cela --clear interrupts 
IF ntrpt = disable OR ntrpt = rev) peeing 
ntrpt =— revepek, 
OUtPEC (able reg, rcv spear, 
END IF; 


WHEN tx_DMA dn => 
perf _cmd(ld_snd); 
ntrpt := rev_pck; 
OUtpEc (able req sev. pela, 


END CASE; 
END ntrpt_ hdl; 
END “Ecv; 
PACKAGE ethsend is 


PROCEDURE eth _snd(blk : IN INTEGER; size: IN INTEGER; 
reslt : OUT BOOLEAN); 


END ethsend; 

with assylib,1l1ib,globall; 
PACKAGE BODY ethsend is 
USE assylib,1lib,globall; 


PROCEDURE eth_snd(blk : IN INTEGER; size : IN INTECER; 
reslt : OUT BOOLEAN) is 


Sent : CONSTANT BOOLEAN := TRUE; 
NOt 2Seny: : CONSTANT BOOLEAN := FALSE; 
found : BOOLEAN; 

BEGIN 


resolve ad(mem(blk).ip dst,mem(blk) .to_eth_ad, found) ; 
EP Grounds Entrar: 
mem(b1k).fm_eth_ad := loc _ eth ad; 
mem(blk).type pck(1) := BYTE(8); -~-standard for 
mem(blk) .type pek(2) := BYTE(0); --arpanet packets 
trn pek(mem(bik).Co ethwad = adaness- 
grtr_of(size + 14, min size 
reslt := sent; 
ELSE 
OoPUT("cannot find ethernet addr"); oNEW LINE; 
FOR 1 IN “i= 63200P 
eth.to eth ad(i) := BYTE(16#FF#) ; 
END LOOP; 


PANGS: 


eth.ar op By iE (1); 


eth.to ip mem(b1lk).ip dst; 
trn pck(eth.to_eth_ad'address,min_size) ; 
resit := not_sent; 

END IF; 


END eth_snd; 
END ethsend; 
package ipsend is 
procedure ip send(inx: in integer; rslt: out BOOLEAN) ; 
end ipsend; 


with assylib, lib, ethsend, globall; 
PACKAGE body ipsend IS 


procedure ip send(inx: in integer; rslt: out BOOLEAN) is 
-~AUTHOR: ALEC YASINSAC DATE: FEB 1986 

--—TNPUT: 1.INX IS THE MEMORY BLOCK INDEX TO BE TRANSMITTED. 
--OUTPUT: 1.RSLT IS AN ERROR FLAG 

eemDrPoCRIPLION: IP SEND SETS THE IP HEADER FIELDS OF THE 
-- PACKET TO BE TRANSMITTED TO A REMOTE HOST, AND CALLS 
-- THE PROCEDURE THAT WILL PASS THE PACKET OUT ONTO 


Se Lo BRN EL. 
use assylib, lib, ethsend, globall; 
ip hdr len : CONSTANT INTEGER := 20; 
totlen: integer; 
begin 
mem(inx).ver := byte(16#45#) ;--4 is protocol version, 
mem(inx).serv := byte(0);--5 is # of 32 bit words in hdr 
mem(inx).1id(1) := byte(0); 
mem(inx).1id(2) := byte(0); 
mem(inx).flag(1) := byte(0); 
mem(inx).flag(2) := byte(0); 
mem(inx).ttl := byte(16#0F#) ; 
totlen := arr_to_int(mem(inx).ip cksum) + ip hdr len; 
mem(inx).len(1) := ohi(totlen); 
mem(inx).len(2) := olo(totlen) ; 
mem(inx).1p cksum(1) := BYTE(0); 
mem(inx).ip cksum(2) := BYTE(0); 


cksum(mem(inx).ver'address,10,mem(inx).ip cksum) ; 
ae le LOL eNMPLOch DUR aoblao lHk IP CKSUM FIELD TO 
--CONTAIN THE LENGTH OF THE TCP HEADER AND DATA. THE 
—~ USN PEED CONTAINS HHE LENGTH OF THE THE IP HEADER. 
Sate wieiiGchdinor Thr PACKAGE ITS THE SUM OF THESE TWO 
ee eS. 

eth_snd(inx,totlen,rslt) ; 

=—-TOTLEN IS PACKAGE LENGTH IN BYTES. 


end ip send; 

end ipsend; 

with globall; 

package tcpsend is 
use globall; 
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PROCEDURE tcp open(pre;: IN Sintec 
foreign sock: IN OUT socket_rec; act: IN BOOLEAN; 
loc tcp_ad: OUT array2; rslt: OUT BOOLEAN) ; 


PROCEDURE tcp _send(indx: IN INTEGER; 
data len : IN INTEGER; tcp ad: IN OUT Sanwa 
rslt: OUT BOOLEAN 


PROCEDURE tcp close(tcp ad ; IN OUT array. 
PROCEDURE check retrnsO(tcp_ad > IN OUT VarEay Ze 
end tcpsend; 


with ipsend, lib, assylib, globall; 
PACKAGE body tcpsend IS 

use ipsend,lib,assylib,globall; 
--last updated 29 Apr 86 
hdr_len : CONSTANT INTEGER := 16; 
datawrds : INTEGER; 


PROCEDURE check _retrnsQ(tcp_ ad : IN OUT array2) is 
ndx > ENDTEGER; 


exists : BOOLEAN; 
Der ; INTEGER; 
BEGIN 


get. teb: ndx(tcp ad7mdx, exiseane 
IF exists THEN 
DEE t= -tCcbh(ndx).rectrnse, 
LOOP 
EXIT WHEN ptr = 0; 
mem(ptr).spare := mem(ptr).spare + 1; 
IF mem(ptr).spare >= 10 THEN 
mem(ptr) .ttl := byeeca 7 
mem(ptr).ip cksum(1):= ohi(mem(ptr) .frm_len¥20)% 
mem(ptr).ip cksum(2):= olo(mem(ptr) .frm_lent20); 
mem(ptr) .tcp xsum(1}) ‘= byee(0); 
mem(ptr).tcp xsum(2) := byeero)e 
IF mem(ptr) .frn@len — s17ef a 


mem(ptr).data(mem(ptr).firm lent+l1) := BYTEGG 
ENDs LF: 
datawrds := hdr len + (mem(ptr).firm len + iy 


cksum (mem(ptr).ttl'address,datawrds, 
mem(ptr) .tcp xsum); 

ip send(ptr, exists); 

tcb(ndx).retrnsQ := mem_manag tbl(ptr) ; 

give memory(ptr) ; 

oPUT("retransmit blk # "); oOPUT(ptr) ;oNEWREiiia 

OPUT("Seq # "); 

FOR 1 IN 1..4 LOOP 

oPUT (INTEGER(mem(ptr) .seq(i))); 


2lkZ 


OPUT(" "); 

END LOOP; oNEW LINE; 

OPUT ("ack = "); 

FOR i IN 1..4 LOOP 
OPUT(INTEGER(mem(ptr).ack(1))); 
oPUT(" 1) : 

END LOOP; oONEW_ LINE; 

OPUr("Ssecr Ler") 7 

OPUT (INTEGER(mem(ptr).scr(1))); 


SOLU a 
OPUT (INTEGER(mem(ptr).scr(2))); 
ONEW_ LINE; 
Jap, CIEL 
END IF; 
ptr := mem_manag_tbl (ptr); 
END LOOP; 
END LP; 
END check retrnsQ; 
PROCEDURE tcp open (prt: in integer; 


=—AU THOR: 
aa NPUT: 


foreign _sock: IN OUT socket_rec; act: in boolean; 

loc tep ad: OUT array2; sent: OUT BOOLEAN) is 

ALEC YASINSAC =—-DATE.. FEB 86 

il beelo sl INDEX PCRerht FCB ARRAY RECORD. 

2 oer oh Oro iit eee Soo Or THE REMOTE HOST 

3. ACT INDICATES WHETHER THE CONNECTION IS ACTIVE 
OR PASSIVE. THE PASSIVE, OR HOST, CONNECTION 
MAY BE IMPLEMENTED AT A LATER DATE. 


- GLOBAL ARRAY '‘'MEM' 

- PARAMETER LOCAL TCP ADDRESS 
GLOBAL ARRAY PCB 

GLOBAL ARRAY TCB 

PARAMETER RESULT 


aL 
2 
8) 
4 
S) 
6 


—-EXTERNAL MODULES CALLED: 1. oHI, oLO 


2. GET MEMORY 

3. ADD 4BYT ARRS 
4. IP SEND 

5. CKSUM 


--DESCRIPTION: TCP OPEN OPENS A TCP CONNECTION BETWEEN THE 
-~ SELECTED FOREIGN HOST AND THE Z100. A TCB RECORD WILL BE 
-- BUILT AND A SYN SIGNAL PACKET IS BUILT AND PASSED TO 

-- IP SND FOR TRANSMISSION TO THE DESTINATION ADDRESS. 

-- THIS PROCESS IS EXPLICITLY DESCRIBED IN THE STANFORD 

-- RESEARCH CENTER REQUEST FOR COMMENT MANUALS, SRI-RFC. 

-- RFC-793 IS THE TCP MANUAL. SOME IMPORTANT PAGES ARE 

-- 54, 45, 31, 16, AND 17. 


--DECLARATIONS FOR PROCEDURE TCP OPEN 
max, inx: integer; 
overflo, exists: boolean; 


ek 


arr4isl : array4; 


begin ~—=BEGIN PROCEDURE TCP OPEN. 
loc tcp ad(il) := ohi (nxt) presse 
loc tcp_ad(2) := olo(nxtypremacs, 
nxt_prt_ad := inc_nxt_prt_ad(nxt_prt_ad);--betw 0400-ffaas 


get_tcbh ndx(loc tcp ad, inx, exisee, 
if exists then 


sent := false; 

return; 
end if; 
tcb(1inx) - prt meme: — 9 pr, 
tcb(inx) .loc sock.tep ad := locttermac, 
tcb(inx).loc sock.ip ad := lociipaad. 
tcb(inx).rem_sock := foreign_sock; 


byte(0);--MAKE FIRST SEQ # EQUAL 
byte(0);--TO TCP ADDR TO BE USED. 
tcb(inx) .snd.iss(3) tcb(inx).loc sock. tepladwign 
tcb(inx) .snd.iss(4) tcbh(inx) .loc sock¥tcprad( Zim 
--ASSIGNMENT OF ISS FIELD MADE ARBITRARILY. 

tcb(inx).snd.una := teb(inx).snd.iss, 
teb(inx).snd.wll := tcb(inx) .sndewrse, 
Coos) eel += bytet2 i. 
lf act Enen 

get_memory (indx) ; 

1f indx = O then 


teb(inx)-snds1ss(i) 
Ech (ins) sndeass (2) 


sent := false; 
return; 

end if; 
mem(indx).scr(1) := loc tcp ad(1);--SET LOCAL SG@e aes 
mem(indx).scr(2) := loc _ tcp ad(2); 
tcb(inx).tstate := syn_sent; 
mem(indx).ttl := byte(0);--MUST BE ZERO TO COMPUTE 
mem(indx).prot := byte(6); --TCP CKSUM. 
mem(indx).ip cksum(1) := byte(0); 
mem(indx).ip cksum(2) := byte(24);--SET TO TCP LENGi@ 

--FOR COMPUTATION OF TCP CHECKSUM.SEE pl7 TCP MANUAL: 
mem(indx).ip scr := loc ip ad;--INIT TO LOCAL IP ]Agee 
mem(indx).ip dst:=tcb(inx).rem_sock.ip ad; 
mem(indx).dst := tcb(inx).rem_sock.tcp ad; 
mem(indx).seq := tcb(inx).snd.iss; 
mem(indx).ack(1) := byte(0); 
mem(indx).ack(2) := byte(0); 
mem(indx).ack(3) := byte(0); 
mem(indx).ack(4) := byte(0); 
mem(indx).off := byte(16#60#) ; 
mem(indx).ctl := byte(16#2#) ; 
mem(indx).wnd := rcv_wnd; --MAX PACKET SIZE TO REC. 


mem(indx).tcp xsum(1) := byte(0); 

mem(indx).tcp xsum(2) := byte(0); -- p1lé TCP MANUAL. 
--ZERO OUT XSUM FIELD BEFORE COMPUTING TCP CHECKSUPS 

mem(indx).urg(1) := byte(0); 
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mem(indx).urg(2) := byte(0) 


mem(indx).data(1) := byte(2); -- TELNET RESET CODE. 
mem(indx).data(2) := byte(4); 
mem(indx).data(3) := byte(4); 


mem(indx).data(4) := byte(0);--make even num for cksum 

cksum (mem(indx).ttl'address, 18, mem(indx).tcp_xsum) ; 
--THERE ARE EIGHTEEN 16 BIT WORDS IN THE TCP AND 
--PSEUDO HEADERS. CKSUM USES THE STARTING ADDRESS 
--AND LENGTH TO COMPUTE CHECKSUM. 


ip send(indx, sent); --IF RSLT OF IP SEND IS GOOD, 
give memory (indx) ; --TCP SEND IS ALSO GOOD. 
IF NOT sent THEN 
Pelt) ._Drtanum := 993 
ELSE 
tcb(inx).snd.una := tcb(inx).snd.iss;? 
Pema (eeMenntc i ohielss, 1, teb(inx).Ssndsnxt) ; 
BNO cr; 
else -=-PASSIVE CONNECTION. 
tcb(inx).tstate := listen; 
peb( techbiainx) pre num. SBportq := 07 
end if; 


end tcp _ open; 


procedure tcp send(indx: IN INTEGER; data_len : IN INTEGER; 
tcp ad: IN OUT array2; sent: OUT BOOLEAN) is 

--AUTHOR: ALEC YASINSAC ==-DADEs FEB 86 

--INPUT: 1. INDX IS INDEX OF MEMORY BLOCK TO BE TRANS. 

aeeeecs DATA LEN IS THE NUMBER OF DATA BYTES IN THE PACKET. 

See o-. lCP ABPIS THE BOCAL TCP ADDRESS SENDING THE PACKET. 

== 4. RSLT IS THREE VALUED ERROR FLAG. 


eOULPUT: GLOBAL ARRAY 'MEM' 


GLOBAL ARRAY TCB 


ibe 
oa 
= 3. GLOBAL ARRAY PCB 
4. 
oo SEAR AMEEER RSLT 


--EXTERNAL MODULES CALLED: 1. IP SEND 

-- 2. ADD 4BYT ARRS 

-- 3, GETETES INDEX 

-- 4. CKSUM 

-- 5. 

~-DESCRIPTION: TCP SEND SENDS A PACKET TO REMOTE HOST 


-- FROM Z100. THE TCB RECORD WILL BE UPDATED. MUCH OF 
-- THIS PROCESS IS EXPLICITLY DESCRIBED IN THE STANFORD 
-- RESEARCH CENTER REQUEST FOR COMMENT MANUALS, SRI-RFC. 
-- RFC-793 IS THE TCP MANUAL. SOME IMPORTANT PAGES ARE 
-- 54, 45, 31, 16, AND 17. 


| VECLARATIONS FOR PROCEDURE TCP _ SEND 


2x5 


ines integer, 
overflo: boolean; 
exists: boolean; 


begin --BEGIN PROCEDURE TCP Seige 

get tcbh ndx(tcp_ad, inx, existe 

IF exists THEN 
mem(indx).frm_len := data_len; 
mem(indx) .ttl:=byte(0);--SET TO 0 TO COMPUT TCP CKSUM. 
mem(indx).prot := byte(6) ; 
mem(indx).ip cksum(1) := ohi(data_len+20) ;--SEE P17 
mem(indx).ip cksum(2) := olo(data_len+20) ;--TCP Tame 
mem(indx).ip scr := tcb(inx)@illeerseeiiama 
mem(indx).ip dst:=tcb(inx).rem_sock.ip ad; 
mem(indx).scr := tcb(inx).loc_ sock.tcp ad; 
mem(indx).dst := tcb(inx).rem_sock.tcp ad; 
mem(indx).seq := tcb(inx).snd.nxt;--PAGE 40, TCP MAN. 
inc arr(tcb(inx).snd.nxt,data len, tcb(inx)-sndemcem 
--THE SND.NXT FIELD IS THE SUM OF THE SEQUENCE NUGMHEee 
--AND THE NUMBER OF DATA BYTES IN THE PACKET. page 


mem(indx).ack := teb(inx) sEcy.n-c- 
mem(indx).off := byte(16#50#) ; 
-<T'CP HEADER IS 5 32 BIT WORDS LONG apoio 
mem{indx).ctl := byte(16#18#) ;--WHILE CONNECTION IS 
--ESTABLISHED, WILL ALWAYS SET ACK BIT. \pamse 
mem(indx).wnd := rcev_wnd;--MAX PACKET SIZE TO RECEIVES 
mem(indx).tcp xsum(1) := byte(0);--ZERO TO TO COMPUTE 
mem(indx).tcp xsum(2) := byte(0);--TCP CHECKSUM, pl16. 
mem(indx).urg(1) := byte(0); 
mem(indx).urg(2) := byte(0); 
if data len < S12 Thee 
mem(indx).data(data_len+1l) := BYTE(0); 
END, Pr; 


datawrds := hdr len + (data_len + 1)/2; 
cksum (mem(indx) .ttl'address,datawrds, 
mem(indx).tcp xsum) ; 
ip send(indx, sent) ; 
ASM eli; 
IF NOT sent THEN 
OPUT ("packet not sent, in proc tcp send"); oNEW LINE; 


END IF; 
mem(indx).spare := 0; --reset counter for 
IF tcb(inx).retrnsQ = 0 THEN -~-retransmission 
tcb(inx).retrnsQ := indx; 
ELSE -=need proceaddieo 2 
datawrds := tcb(inx).retrnsQ; 
LOGe 
EXIT WHEN mem _manag_tbl(datawrds) = 0; 
datawrds := mem_manag_ tbl(datawrds) ; 
END’ LOOP; 
mem manag tbl(datawrds) := indx; 
END TIE; 


BMS 


ASM sti; 
END IF; 
end tcp send; 


PROCEDURE ECo Close(tcp ad 


indx,1nx: INTEGER; 
exists : BOOLEAN; 
asciic CONSTANT BYTE 
sent BOOLEAN; 

ptr INTEGER; 

BEGIN 


IN OUT array2) is 


:= BYTE(16#4434); 


get _tcbh ndx(tcp ad,inx,exists) ; 


IF exists THEN 
get_memory (indx) ; 
PE rndx /= 90. me 
mem(indx).ttl 
mem(indx).prot 


mem(indx).ip cksum(1) 
mem(indx).ip cksum(2) 


mem(indx).ip scr 
mem(indx).ip dst 
mem(indx).scr 
mem(indx).dst 
mem(indx) .seq 
iiglel Buena |(ee}s\ i abigp.< 
mem(indx) .ack 
mem(indx) .off 
mem(indx) .ctl 
mem(indx) .wnd 
mem(indx). 
mem (indx) . 
mem(indx) .urg(1) 
mem (indx) .urg(2) 
cksum (mem(indx) 


lod t= We ue 


tcp xsum(1) 
tcp xsum(2) 


byte(0); 

byte(6); 

BYTE (0); 
:= BYTE(20); 

mee inix) Loc Seck.ip ad; 
s=tcb(inx).rem_sock.ip ad; 
Peviiiyerleec sock. ccp acd; 
tcbh(inx).rem_sock.tcp ad; 
ee lemmeqeasmMcl. hxt 7 
foncehwerme ten(inx).snd.nxt) ; 
Bee Ink \asev.nxt; 

byte (16#50#) ; 

byte (16#11#) ; 

rcv_wnd; 


byte(0); 

byte(0); 

byte(0); 

byte(0); 
-ttl'address,16, 
mem(indx) .tcp xsum) ; 


ip send(indx, sent) ; 
CASE tcb(inx).Tstate is 


WHEN estab => tcb(inx).Tstate 


WHEN others => tcb(inx).Tstate 


ENDMCASE ; 
give memory (indx) ; 
CEP lacd( 1) .— way ce (0 
tcp _ad(2) := byte(0 
1,8) ee 
BND IF; 


END tcp close; 
END tcpsend; 


PACKAGE locxXfer is 


) 
) 


fam wart. 2; 


last cack, 


° 
? 
° 
? 
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PROCEDURE loc init(prte => IN ANGHeRR 


PROCEDURE JToe(pre < IN  2NGEGER 
END locxXfer; 


WITH 1ib,assylib,globall; 
PACKAGE BODY locxXfer is 
USE 1lib,assylib,globall; 


code print: CONSTANT BYTE := BYTE(16#D4#) ; 
code endprint: CONSTANT BYTE := BYTE(16#F4#) ; 
nullbyt : CONSTANT BYTE := BYTE(0); 

byt ; ET 

int input : INTEGER; 

amt : INTEGER; 


PROCEDURE loc _init(prt: in integer) is 
begin 
INDEE (peb( pre) stat tpise, sbyee, 
IF otstbit(byt,RxRdy) then 
inprt (peb( piste) data pre woe. 
int_input := INTEGER(byt) ; 
IF int input <= num_prts AND int_input >= 0 THEN 
CASE pcb(int_input).Pstate is 
WHEN lstn => . 
IF prt /= int input THEN 


peb(prt) -loc con 3— sine apm, 
peb(int input) . locilcen@: — pre, 
pceb(prt).Pstate :— local: 
peb(int input). Pstatem@ a leeal: 


activate prt(int_input) ; 
outprt (peb(int input) idata prt, nullbyoe 
Outprt (pcb (prt) .datanpme eels cs, 
ENO iE, 
WHEN local => 
IF NOT peb(int_ input) is primes tae 


peb(prt).loc_con := peb(int_input) . leecyeams 
peb(int input) . loesconmi-ee... 
peb(prt).Pstate := local; 
outprt (peb(prt) -datagpreamuitby &) |; 
END LE: 
WHEN 1 init => 
peb(prt).Pstate := lstn; 


WHEN cls => 
pceb(prt).Pstate 
WHEN others => 
Pe vecls( prey, 
END CASE; 
ELSE 
Pebeers( Pre); 
END SLE; 
ELSE 


Listn- 


Zine 


pcb(prt).time wait := pcb(prt).time wait + 1; 
IF peb(prt).time wait = threshold THEN 
Pesee ls (pre) ; 
END I; 
END IF; 
ema loc init; 


PROCEDURE loc(prt: in integer) is 


--this is a user datagram designed for local transfers: 


=—— mem blk 

“= fom ee eee + —m—---—-—-—-—-—-—-—- 
-- wnd(1) | dest | | 
-- +—e—------ + | 
=< wnd (2) | source | | 
-- +-------- + | 
-- - tcp xsum| type | | 
-- +-------- + | 
> tcp xsum| cksum | | 
-- +—-------- + | 
aS aed.) © \Ptengenl | | 
-- +-------- + | 
-- ' urg(2) | length2] | 
== ee + meee eee eee 
-- data | | 

a edacaus | 

7 | (512) | 

a | | 

-- 5 sateatentententententen + 

page ; CONSTANT BYTE := BYTE(16#0C#) ; 
faa, len 7: “CONSTANT INTEGER ;= 6; 
fu, ptr,bytcnt : INPEGER; 

ndx : INTEGER; 

found >: BOOLEAN; 


PROCEDURE snd_data_to printer(prt, blk : IN INTEGER) 
BEGIN 
maipre (pCh(prt).stat prt, byt) ; 
IF otstbit(byt,TxRdy) AND otstbit(byt,DSR) THEN 
IF mem(blkK).spare > O THEN 
CASE mem(blk).data(mem(blk).spare) is 
WHEN BYTE(16#1A#) => 
mem(blk).frm_len := 0; 
RELURN 
WHEN BYTE (16#20#) ..BYTE(16#7E#) => 
Pesauone) soEte: <= 9peb(prt).prtO + 1; 
Gilpin PCO (pre) .data prt, 


Sp -oOver lays onto tep header 


mem(b1lk) .data(mem(blk).spare)); 


WHEN BYTE(16#0D#) => 


Zo 


PED (pre). pra: — er 
OUTDrt (ped (prejedatampre, 
mem(blk).data(mem(blk).spare)); 
WHEN BYTE(16#09#) => 


FOR 1 IN 1..(8-pcb(prt) .prt®O med 6) Lede 
LOOP 
inprt (pcb (prt) .Stat preyemes 
IF otstbilt (byt, Pekdy ete 
outprt (pceb(prt).data prt, BYTE(16#2073g— 
ep Use 5 
ENDS i; 
END LOGE; 
END LOOP; 
Deb (PEE). PEO == 7te 
WHEN others => 
OUUprt (pcb (prt) “datameme, 
mem(blk) .data(mem(blk).spare)); 


END CASE; 
mem(blk).spare := mem(blk).spare + 1; 
mem(bik).fxrm len := mem(olk) -frmilenmaee, 
ELSE 
mem(blk).frm_len := 0; 
END ik 
END IF; 


END snd_data_ to printer; 


PROCEDURE remove _link(prt : IN INTEGER) is 
ptr : INTEGER; ; 


BEGIN 
Dek. plc, 
LOOP 
EXIT WHEN peb(ptr) .loc.con — pur, 
PLEW-— pcb (ptr) = foc. eon, 
END LOOP; 
pcb(ptr).loc con := peb(prt)~loesgeen, 
IF peb(ptr).loc con = ptr THEN--only one left in age 
TF pep(ptr).s prto /—= 0 THEY 
Give memory (pecb(pteLr) .S puEee 
pebi(ptr).S Pprto sae, 
ENDGLE 
IF peb( per) .1S print fae 
pceb(ptr).Pstate := lstn; 
DEbi( PEL) .prco. :—4GF 
ELSE 
Pebwc ls (per. 
END 
END) 28; 
END remove_ link; 


BEGIN 
LNprt (pep ( pre jesitat pistymeo ee, 
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IF otstbit(byt,RxRdy) THEN ~-check for cntl 


iene peo (pre) sdata pre, byt) ; 
CASE byt is 


WHEN code cls => 
iM “Web ( preys preO {7 O" LHiEN 
give memory (pcb(prt).s_prtQ); 
peb(prt).s prtQ := 0; 
END IF; 
remove link(prt) ; 
pevmels( pre) ; 
WHEN code status => 
SUE PE eer Pre ccdta pit ,code Status) ; 
give status(prt); 
WHEN “COde@) begenir. == 
QuEy Re (peo ois )n. cdc COde reqPre) ; 
Ste ping (Web (Dre). CAtCam Omen ( prt) ) ; 
WHEN code loc => 
SQMicpise (Dew pie eectea mpi ,COGC NCIS) ¢ 
WHEN code print => 
ptr := 0; 
LOOP 
TP peb( ptr) -1s prince AND 
peb(ptr).Pstate = lstn THEN 
OULCREE (Rem (pre). data prt, BYTE(ptr) ); 
ACEI VabemprELC (PED); 
PCD (pcr )weboc come := pchb(prt) .loc con; 
Dewiomt Lec Con := per ; 


Denim). Pstate == local; 
peb(ptr).sent := FALSE; 
pCh (PEE) -_prbO := 0; 


Guile weckiQorn).ecmd prt, DTR) ; 
EXPE: 
END IF; 
foes OS oie ark lhe 
tf pen > numne@ercs THEN 
SUeoae(peopre).dadta prt,code quit) ; 
Ee 
END ane: 
END LOOP; 
WHEN code endprint => 
Beis .— Ppeb(prt).loc con; 


LOOP 
PEbeo pe) a1s) Plant LPHEN 
Pewiptr) ssenc w=) TRUE; 
peb(ptr).prtQ := OO; 
OMievac(Deouptr) cma prt,clr) ; 
}2 2, IU 
END@ir ; 


ptr := peb(ptr).loc_con; 
PaieewniN ptr = prt; 
END LOOP; 
WHEN others => 


PLP aik 


outprt (pcb(prt) .data prey ecodemem=an. 
END CASE; 
END IF; 
IF NOT peb(pre)< is petnce aan 
IF peb(prt).s pree 7/= Co tre) 
blk := peb(prt) .S preg; 
DEr«s— 70; 
LOOP 
IF peb(prt) .ack(ptr) /— Bvt) See 
cn ye 
ELSE 
DEE Ts—= Der tae, 
IF ptr > max Elagusy cy faa 
give memory (blk) ; 
- peb(prt).s prtQ := 0; 
Ex, 
END IF; 
END IF; 
END LOOP; 
END IF; 
LF peb(prt).s preo — 0 Tea 
Inpirt (peb( pre) estat (pies eee, 
[IF OtStbit(bye, DSR) Laan 
get_memory (bik) ; 
IF blk /= 0 THEN 
bytcnt := S38, 
get trns(mem(b1lkK)-wnd ADDRESS; 
pceb(prt).data prt, byte 
IP bytent,> Coban 
mem(blk).frm_len := bytcnt - hdr witene 


mem(blkK).spare := 1; 

PCb (PEC) SIP Ecewie Oli, 

IF mem(bl1K).wnd(1) = BYTE(16#FF#) THEN 
PCE := pCch (prey eeroc recon, 
LOOP 


EXIT WHEN ptr = prt; 
osetbiti@pcbh (prt) .ack(peb (pen 
EigebyvEyy 
peb (pEr jm fle, bic. 
osetbit (pcb (ptr). snd (peb (prem 
flg byt), 
pcb (pre) flqmone: 
ptr := peb( ptr) = 'oc corr 


END LOOP; 
ELSE 
ptr := INTEGER(mem(b1K) .wnd(1))7; 


IF ptr <= num_prts THEN 
CASE pcb(ptr).Pstate is 
WHEN local ! lstn => 
OoSetbie(pebi pre 
ack(pcb(ptr) .flg bya 
peb (ptr) <£ lqubiseye. 


Zee 


eseeome (pch(ptr) . 
Siecpea (prt) -flg byt), 
De migotsieee fe cy sod tc) 7 
iE peb(per).Pstate = lstn 
AND ptr /= prt THEN 
activate prt(ptr); 
Peepthmerseace := local; 
pcb(ptr).loc_con := 
Deb (Cpise) lOc Con; 
PeeQpre) loc Con := pr; 
Sleere (Deu ( ptr) .data pre, 


Quella Jewaeay t 
END LF; 
WHEN others => 
give memory (blk) ; 
Pes (mise). SipEcO 3— 0; 
END CASE; 
ELSE 
give memory (blk) ; 
Bep(prejmo prcQ := 0; 
END IF; 
END IF; --if byt = FF 


ELSE 
give memory (blk); 
PEtiGm@epeco (Prt) .1S print THEN 
peb(prt).time wait := 
Benw@pre)-tine walt +1; 
IF peb(prt) .time wait=threshold THEN 
OPUT("closing local connection") ; 
oput(". time out."); oNEW LINE; 
Pr epee (prt) .Sspre® /= 0 THEN 
give memory(pcb(prt).s_ prtQ); 
peb(prt).s prtQ := 0; 
END IF; 
remove _link(prt) ;? 
Pepects (pre) ; 


END IF; 
END IF; 
END IF; 
END IF; --if blk /= 0 
END IF; --tstbit DSR 
END IF; --s prtQ = 0 


Fbok 
Te pes( pre).sente THEN 
OPUT(“peb(pre).sene 1s TRUE"); oNEW LINE; 
found := FALSE; 
FOR i IN 0..max flag byt LOOP 
Pie pch (pre,.snagy)  /— BYTE(O) THEN 
Found a= LRUE ; 
END LE; 
END LOOP; 
ie NOT fL£ound THEN 
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renove link(pec ys, 
peb(prt) .Pstate == Ist, 
EN Deine, 
END iE, 
END Gir. =e Wl LSupr ite 
FOR 1 IN 0..max flag byt LOOP 
IF pcb(prt).snd(i) /= BYTE(0) THEN 
FOR j} IN 0..7 LOOP 
IF Otstbit(pcb(prt) .sndvi je apmeeee 
ptr := (8*1)+ 3; 
iP peb(ptr).s_ preo 7 — sonra 
IF pcb(prt) .is princes tae 
snd data _to printer(prt, 
peb(ptr).s_prtQ); 
- IF mem(pceb(ptr).s prtQ).frm _len=-0 Tia 
oclrbit (peb(ptr) .ack(peb(pEwas 
flg byt) ,pcb(prt) .flg uaa 
oclrbit (pcb(prt) .snd(pebi ptm 
flg_byt) ,pcb(ptr) . flgujaame 
END IF; 
ELSE 
amt := arr _to_int(mem(pcb(ptr).s prtQ). 
urg) + hdr Veng 
IF amt <= 51S )70EN 
send trns(mem(pcb(ptr).s pregye 
wnd'ADDRESS, 
pcb (pre). daralpie anes 
IF amt = 0 THEN 
oclrbit(pcb(ptr) .ack(pebi jm 
flg byt) ,pcb(prt) . flo isa 
oclrbit (pcb (prt) .snd (peb (potas 
flg byt) ,pcb(ptr) .flg bala 
END IF; 
ELSE 
oclrbit(pcbh(ptr) .ack(pebGormem 
flg byt) ,pcb(prt) .flg bite 
oclrbit (peb( prt) .snd(peb (piu: 
flg byt) ,peb(ptr) .flg biae 
END IF; 
END LE; 
ELSE 
oclrbit (peb(ptr) .ack(peb (pre) 2 flats yam 
peb(prte) fiqubaer 
oclrbit(pcb(prt) .snd(peb (ptr) 2flgiby ae 
pcb(ptx) - flgmom=e 
END Le; 
END eu 
END EOor, 
ENDa EE; 
END LOOP; 
END loe; 
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END locxfer; 


fee locxter, merpthd, assylib,1ib, globall, tcpsend; 
package body poller is 
use locXfer, assylib; 


--FILE NAME: POLLER. PKG 
--PROCEDURES CONTAINED: 


-- 1. POLL 5. FTP 9. PCB CLS 
-- 2. SND DATA TO PORT 6. LOC 

-- 3. RLOG 7eecHE PRE DAT 

-- 4. REM INIT SeLOCEINTT 


--AUTHOR: ALEC YASINSAC 

--DATE: JAN 1985- 

-~EXTERNAL REFERENCES: 
--GLOBAL1.SPC CONTAINS ALL GLOBAL VARIABLES AND TYPES. 
~-LIB.PKG WHICH CONTAINS OUR UTILITY PROCEDURES. 
--BIT.PKG CONTAINS THE ADA BIT MANIPULATION ROUTINES 
--I0O.PKG 

--INPUT: 1) PORT STATUS BYTE FOR EACH PORT 

-- 2) IP ADDR FOR REMOTE LOGIN AND FTP DESTINATION 

--OUTPUT: 1) PORT NUMBER TO CALLED ROUTINES 

--COMPILER: THIS PACKAGE WAS CODED TO COMPILE ON JANUS/ADA 
--UNDER CPM 86. 

--DESCRIPTION: 
--POLLER CONTAINS THE PROCEDURE 'POLL', THE CONTROLLING 
--PROGRAM OF THE CONCENTRATOR. IT CHECKS EACH PORT FOR 
--ACTIVITY FROM ITS CORRESPONDING PORT AND PASSES 
--CONTROL TO THE APPROPRIATE SUBROUTINE BASED ON STATE. 


--handshake signals betw concentratr and peripherial devices 


Seper gnd TxD RxD DTR DSR CHASIS 
ee i 
a | | | | | | 

ze. | Vv A wy ZS | 

= | | | | | | 

--|  gnd RxD TxD DSR DTR CHASSIS | 
--concentrator 


-- principals of communication 
——aata data 

--from remote DTR, wait a short 
2s time for DSR 
--from concentrator DTR, wait a short 
-- time for DSR 


snd cntr! 


use assylib,1lib,globall; 


220 


Pie ecelcis : INTEGER := INTEGER(16#0100#) ; 


code print : CONSTANT BYTE := BYTE(16#D4#) ; 

code endprint: oe BYTE := BYTE(16#F4#) ; 

ndx INTEGER; --index to pcb tables 
pred_ndx ; INTEGER; ~~-predecessor of ndx 
val cave Ey --input byte from port 
iter : INTEGER; --pointer index 
loopthrshld : CONSTANT INTEGER := 200; 

hdr len : CONSTANT INTEGER := 6; 

--initialize rs232 UARTs 

model : CONSTANT BYTE := BYTE(16#4E#) ; 

mode2 ; CONSTANT BYTE := BYTE(16#3E#) 7--3F 19.2K 

commd : CONSTANT BYTE := clrj;--txEN, RXEN and RTS 

loopcnt : INTEGER; 

blk ; INTEGER; 

stat >: INTEGER; 

byYtstac + VEY LE, 

byt : BYTE; 


[ea er CE Bc sO CE CE aera 2 aEeeeanm ane wa as eeEIaweart ae ae az ae ae ae eae ae eee ame] SE SE Ee ae ae ame] aS! aE ae ae 2 ee ae ae cE 62 ae 2 ae 2 ae ae == 


procedure rem init(prt_num:IN INTEGER;rem tcp addr:array2)is 
==-EXATERNAL CALLS TO; 1. TCP OPEN, [Cr Aber 
~~ 2. PCB CLS 

3.) 2OTST BED 
== 4.  IOPORT, OUTPORT 
--This procedure initiates a remote login to the address 
--received from the port. The ip address is four bytes and 
--are stored in an array to send to tcp open. Buf_in_cnt 
--counts how many bytes of the address has been received. 
--If the connection has not been established within the 
~-number of cycles indicated by the global constant 
--'threshold', then the port will be closed. 


use globall, assylib, lib, tcpsend; 


rSslt : BOOLEAN; 
data Fa 2 

indx : INTEGER; 
found : BOOLEAN; 


loopcmat.; INTEGER; 


BEGIN --BEGIN PROCEDURE REM INIT. 
IF peb(prt num).buf in cnt = Osteen 
Ip Letpebt pire. num) .STAT _prt,data) ;--CHECK FOR CHR Fiieeae 


if otstbit(data. DSR) Enen --THERE IS DATA TO BE READ. 
outprt(pcb(prt num).cmd_prt,DTR); --ready to receive 
leopecnve.— 10; 
peb(prt num) -buft in cnt 7-9 
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LOOP --GET ALL BYTES OF THE REMOTE IP ADDRESS. 
EXIT WHEN loopcnt = loopthrshld; 
tinpise (Geb (prt MUM). Stab ipre, daca) ; 
IF otstbit(data,RxRdy) THEN 
mp et Pelt pre. num) . Gate cusoic, claic.a))a; 
peb(pre num). buf_ _in. Tp ad(pcb(prt_ Rue oUt In Cnc) 


t= data; 
Devi(pEeeenUn) ea onminecht s— pecb(pre num. ut in cnt 
af lie 
Ee uke o(pErmaAun) jut Ineecnt — 5, 
END IF; 
Eeoopene >= loopcnke + 1; 
END LOOP; 


SUC OEE (peO(parL num) .cma prEL,CIE) ; 
Ppeeehuprt num) .Ouf im cnt /= 5 THEN 
Pepi pr tanum) - Potatemi—acl-- 
ELSE 
PeDQoreunun) SUE Inetcprad := rem tcp addr; 
--The pcb state will be changed by the int handler 
--when the tcp connection is established. 
1e(eye) Kejorstol(Covere pe hbh ul 
jell Geyer ioiehiny) geohbba mse ye 
Peb (PEEL RUM). acc, 
Peb(preenum).loprt ad, 
PebiprEe num) Senet); 
IF NOT NI3010 ok THEN 
GeELECD nex (pebigsce num) .1 abet aay inex, found); 


tcb(indx). prt_num := 99; 
peb cls(prt num); 
Taq) D) a a 
JEN) DE ate 
BND IF; 
1 CAS 
IF peb(prt_num).time wait>threshold THEN --TIMED OUT. 


TP SNOT peb(pre mum) .sent THEN 
tcp _open(prt_nun, 
Deo UPigcemum) out an, 
peb(prt_num).act, 
PED(eSE Many. prt ad, 
PED (Pre num).Ssene) ; 

PE SNOT ANLSOLOROk THEN 
Pfeurecuemax(peco( pre num) .li prt ad,indx, found) ; 
Eeb(andx).prt hum := 99; 

PComelSs Gomes num) ; 
pcb (pred _ ete Pe depern>— pPeco(pre mum) .pcbh ptr; 

END SE; 

IF NOT peb(prt_num).sent THEN 
OPUT("‘'syn' packet not sent again"); ONEW LINE; 
Pebeele( PEC num); 

END Lh: 

peb(prt_num).time wait := 0; 

ELSE 
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get_tcb ndx(pcb(prt num) .1 prt ad and eens 
tcb(indx) .prt num :— 997 
pcb cls (premiums 
Se By IIS 
ELSE 
pcb(prt_num).time wait:=pcb(prt_num).time wait+1; 
--COUNT # OF LOOPS. 
END LF; 
END EY; 
END rem_init; 


procedure .ftp(prt num: in integer) is 

--CURRENT: 19 May 86 

--AUTHOR: ALEC YASINSAC APRIL 86 
--DESCRIPTION: FTP IS PASSED CONTROL WHEN PORT 'PORT NUM' 


Is 


-- POLLED IN STATE FTP. AT THIS STAGE, A COMMAND CONNECTION 


-- HAS BEEN ESTABLISHED BETWEEN THE Z-100 AND THE REMOTE 


-- SITE. THREE LEVELS OF COMMUNICATION ARE POSSIBLEVSe3 


== TO AND FROMPA] 24-100. 

== 1. CONTROL: CODES. 

—= 2. DATA THRU THE SECONDARY OR DATA CONNECTION. 

ings 3. COMMANDS/REPLYS THRU THE FEP CMD CONNECT 

-- CONTROL CODES FROM THE 2-100 ARE CHECKED FIRST: 3 
-- ANY DATA FROM THE Z-100 IS ACCEPTED. DATA WAITING FOR 
w= ‘THE Z=100 1S" 2oEN SE 


use tcpsend, assylib, globali; 
type port rec is record 
CYP eb aner soyee, 
SOCK. ySoeket rec; 
end record; 
OULWECC sponte nec, 


code addr: constant byte := byte(16#e1#); --a 225 

code cmd: constant byte ;:= byte(l6#e3%); ==G 227 

code data: constant byte ;:= byte(16#e4#); --d 228 

code qgempty: constant byte := byte(16#e5#); --e 229 

code getcpad: constant byte := byte(16#e7#) ;--init tcb entry 
code check_replyq: constant byte := byte(16#e8#) ;--h 232 
code more: constant byte := byte(16#ed#); --m more datas 
code open: constant byte := byte(16#ef#); --o 239 
code closdata: constant byte := byte(16#f1#) ;--q 241 
code reply: constant byte := byte ote eee 242 
code dprtstat: constant byte := byee6. 24 aaa 244 


bytstat: byte; 

len, ndx, holdg, inxl, i: integer: 

ind: integer; --stub. 
found, sent: boolean; 

byt arr: array ii. 2522) fore, ey 


begin 
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-- IS THERE A CNTL CHAR FROM THE Z-100? 
iippewpco (PEt HUM) wstat pre, bytstat) ; 
if otstbit(bytstat,rxrdy) then --got a control char 
M1pEt (pce (pre nummedatda Prt, byt); 
case byt is 
when code ftp => : ~-TRYING TO RECONNECT. 
Peb aborevort. nam); 
when code_ check replyq => 
dete peb (pice HUM) .oepnRede- 0 Chen 
SUEDIN= Goce (eiseanUM) caca Pili, 
code check replyq) ; 
else 
SUEPm=E( PCe(ebt HUM daca pre, code Gempty) ; 
end if; 
when code dprtstat => ~~CHECK STATUS OF DATA PORT. 
is pel (~pEt num) .sec act then 
GieEnie (WeO( Pisce enUNj daca prt,code open) ; 
else 
QUEDEE (PCO (prc enuUIl ,addtasprt,code Cclosdata) ; 
end if; 
when code getcpad => 
if peb(prt num).sec_ act then null; 
-~-WILL SEND ACTIVE ADDRESS. 
= Omemie (OC ( PEt MUM) . data _prt, code open); 
else 
EGPpROpen( Pre num, 
pee (pre Mui) but in, 
false, 
Pestpre Num) .S prt ad, 
Pebi Pre, num).sent); 


end’ if; 

out _rec.typ tran := code addr; 
SGuterec.sock.ip ad := loc ip ad; 

out — _rec.sock.tcp ad := pep (pre. num).s prt ad; 


outprt (pcb (prt_ num) .data_ prt,code _getcpad); 
COGeer Tt... 310 — OOD 
len := 7; 
send tCrns(out rec'address, 
Pemiort mum).data prt, len) ; 
exit when len = 0; 
end loop; 
when code open =>--ASKING TO OPEN DATA CONNECTION. 
i@WolL IE 
when code abort => 
SULPEL (peo (PpLe num) data pre,code abort) ; 
Pebeavent (prt. num); 
when code closdata => 
if peb(prt num).sec act then 
EepmetOse (Peco (PpEcanuM). Ss prt ad) ; 
peb(prt_num).sec act := false; 
end if; 
when code cls => 
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outprt (peb(prt num) .data pre, codepcieye 
tcp close(pcb(prt_ num) 22 pee vacs 
if peb(prt num) -seclactetnen 

tcp close(pcb(prt num) -sepereace, 


enielents- 
pcb(prt num) -sent s= Faizagy 
peb(prt num) .Pstate 25 setsmaa, 


when others => null; 
end case; 
else -- THERE IS NOT A CONTROL CHARACTER FROM THE Z-100. 
--IS THERE DATA OR A COMMAND FROM THE Z-100? 
if otstbit(bytstat,dsr) then--SOMETHING FROM ZeiigGe 
if used _blk<max_mem_blk then 
get _memory(inx1l) ; --GET A NEW PACKET INDEX. 
len := 513; 
get_trns(mem(inxl1).urg(2) 'address, 
peb(prt _num).data_prt, len);--STOR IN PaAGiiaae 
if len > O then 


if mem(inx1).urg(2) = code cmd then 
--SEND CMD FM 2-100 TO REM OVER CMD EENEe 
G@oput ("cmd = 9", 


Q@for i in 12.4) deen 
@oput (integer(mem(inx1).data(1))); 
@end loop; onew_ line; 


tcp send(inxl, len - 1, 
peb(prt_num).1l prt_ad, sent);] 
else ~-NOT A COMMAND FROM THE 2-100. 
if mem(inx1).urg(2) = code data then 


--SEND DATA FM Z TO REM OVER DATA CONN. 
if pcb(prt_num).sec_act then 
tcp send (ina) Vengo, 
pceb(prt_num).s_prt_ad, Sema 
else--TRIED DATA W/ NO DATA CONNECTION. 
give memory(inxl) ; 
end if; 
else --BYTES FROM Z-100 NOT IDENTIFIEDR2s 
--MEAN USER HAS REBOOTED SO DSR IS HIGH 
--THOUGH NO DATA IS ACTUALLY BEING SENT. 
give memory(inx1); 
pcb (prt Anum) Stamem wade — 
pceb(prt_ num) .time walt Ga 
if pcb(prt num) .time wait > 100 then 
outprt (pcb( prt mum) sdatalpre 
code abort); 
pcb _ abore(eaeenun:, 


end a 
end if;--ENDS IF BYTES RECEIVED ARE DATA. 
end-act = --ENDS IF COMMAND. 
else 
give memory(inx1) ; --NO DATA RECEIVED 
end if; 
else --ALL MEMORY BLOCKS ARE IN USE. 
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null; --CANNOT GET DATA FROM THE 2-100. 


polel lie 6 --FND IF NOT ALL MEMORY BLOCKS IN USE. 
else 

nui --NOTHING WAITING. NO ACTION REQUIRED. 
epplol Sle = --END IF Z-100 TRYING TO SEND DATA. 


--IS THERE DATA FOR THE Z-100? 
heh pieenun) sap REC mea theon-— hrr DATA FOR Z-100. 
inxl := pceb(prt_num).s_ prtQ; 
mem(inx1).urg(2) := code data; 
len := mem(inxl).frm_len + 1; 
send trns(mem(inx1).urg(2) 'ADDRESS, 
peb(prt_ num).data_prt,len); 
IF len = 0 then 
peb(prt -num).s prtQ := mem_manag_tbl(inxl); 
give memory(inx1l) ; 
END IF; ° 
else -- NO DATA IS WAITING FROM DATA CONNECTION. 
—it HOt Dee pEemnunesce dct athen 
--IS THERE A REPLY FOR THE Z-100? 
it peb( pre num)y.preq /—= 0 then -= FTP REPLY. 
inxl := peb(prt num) .prto; 
mem(inx1l).urg(2) := code reply; 
len := mem(inxl1).frm_len + 1; 
send_trns(mem(inxl).urg(2) 'ADDRESS, 
Pee(presnuny.data prt, len) ; 
IF len = O THEN 
peb(prt_num).prtQ := mem_manag_tbl(inxl) ; 
give _memory(inx1) ; 


end if; --END IF LEN = 0. 

end if; --END IF PRTQ /= 0. 

--end if; --END IF NOT SEC ACT. 
end if; --END IF S PRTQ /= O. 


end if;--ENDS IF THERE IS A CONTROL CODE FROM THE Z-100. 
end ftp; 


procedure rlog(prt_ num: in integer) is 

--AUTHOR: ALEC YASINSAC -—-DATE: FEB 86 

Sere UL> 1. PRI NUM IS THE PORT NUMBER CURRENTLY BEING 

== PROCESSED AND O <= PRT NUM <= 23 

ou le Ts 1. FIELDS MODIFIED IN THE GLOBAL TABLE PCB. 

=—— oa FIELDS MODIFIED IN THE GLOBAL TABLE TCB. 
--EXTERNAL MODULES CALLED: 1. GIVE MEMORY 

== 2. GET MEMORY 

-- 3. TCP SND 

-- 4. TCP ABORT 

-- 5. CONV HEXARR_ INT 

-- 6. TST BIT 

--DESCRIPTION: RLOG IS PASSED CONTROL BY POLLER WHEN A PORT 
See wLlTH PORT NUMBER "PRT NUM' IS POLLED AND IS IN THE RLOG 


Zo 


BEGIN 


STATE (WHICH MEANS A REMOTE CONNECTION HAS BEEN ESTAES 
LISHED). RLOG WILL THEN SEND DATA WAITING FOR THE PORT 
AND POLL THE PORT FOR DATA TO THE KEMOTE Host. 328 
NUMBER OF CHARS IN A PACKET FOR THE PORT IS STORED IN 
THE FRM LEN FIELD OF THE MEMOR ee 


use lib, globall, assylib, tcpsend; 
arr4isl: array4; 
max used blk : CONSTANT INTEGER := 
max mem blk - 1; --leave one spare 
rcvRdy: CONSTANT integer := 1; 
bytinp, bytstat: byte; 
next, inp, status, ndx: integer; 
found,sent: BOOLEAN; 
Den: ineeger - 


--WILL PROCESS DATA FROM 2-100 THEN DATA FROM ETHERNET 
inprt (peb(prt num) .stae prt, sovesraee, 


if otstbit(bytstat,DSR) then -- INFORMATION FROM Z-100. 
IF used blk < max_used blk THEN 
loopent =:—70;, 
DErs—s1; 


get memory (next) ; 
IF next /= 0 THEN 
mem (next) . fxm len) >= Siz. 
get _ trns(mem(next).data(1) 'ADDRESS, 
pcb(prt_num) .data pie 
mem(next).frm_len) ; 
IF mem(next).frm ten 270 ane 
tcp send(next, mem(next).frm_len, 
peb(prt_num).l prt_ad, Sénue 
IF NOT NI3010 ok THEN 
get _tcbh ndx(peb(prt num) . ly premac 
ndx, foundym 
EChbecis (hax), 
pcb cls(prt_num) ; 
peb(pred ndx).pcb ptr := 
pcDb(prt_ num) .pcb perm 
END IF; 
ELSE 
give memory(next) ; 
peb(prt_ num) .time wait := 
peb(prt num) .time wait + 
IF peb(prt_num).time wait = threshold THEN 
tcp close (peb( pre ium) prtiacs: 


peb(prt num).sent := FALSE; 
pcb(prt num) .Pstate := eclomune, 
END Ik; 
END IF; 
END IF; 
END Sar: 
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ELSE IF otstbit(bytstat,RxRdy) THEN 
baie (peo Cuore enum). datas pre, ) bycinp) 7 
case bytinp is 
when code abort => pcb _abort(prt_num); 
when code status => give status(prt_num); 
when code cls=>tcp_close(pcb(prt_num).1l_prt_ad); 
peb(prt_num).sent := FALSE; 
peb(prt num).Pstate := clsing; 
when code Arlog =>outprt(pcb(prt_num).data_prt, 
code Arlog) ; 
when others => null; 


end case; 
END IF; 
end if; --END oTSTBIT. END PROCESSING DATA FROM A Z-100. 
mee peco(prt num) =pEtO > 0 THEN 
next := peb(prt_ num) .prtQ; 


send trns(mem(next) .data(1) 'ADDRESS, 
Poo Eemmun) daca prC, 
MET (ileecey) weedeat EN); 

Pee nem (ne ct). cimlen — 30 fh EN 

peb(prt_num).prtQ := mem_manag_tbl (next) ; 

give memory (next) ; 
END SLE 

END IF; 
END rlog; 


PROCEDURE initialize mem is 


BEGIN | 

FOR 1 IN 02.num_prts LOOP 
pebii) spreo := 0; 
Bebi@j Ss pEt® = "07 
pcb(i).sent := FALSE; 
peb(i).time wait := 0; 
DEDCilie.act += TRUE; 
peb(i).sec_act := FALSE; 

END LOOP; 

eR 2 in leemax mem b1K = 1 LOOP 
mem manag th1(i) := 1+ 1; 

END LOOP; 

mem manag tbl(max_mem blk) := 0; 

used blk := 0; 

Eee Dik 2:= 1; 


Bek 2 £N O..max tcbh LOOP 
eeb( i) .prt num := 99; 
tcb(1).retrnsQ := 0; 

END LOOP; 

rev_wnd(1) := BYTE(2) ; 

rev_wnd(2) := BYTE(0); 

END initialize mem; 
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procedure poll is 
use lib, tcpsend, globall; 
rcvRdy ; CONSTANT INTEGER s2 2 
loops to_ poll: CONSTANT INTEGER := 1000; 
bytcode, bytstat: byte; 


nax ,nd x aes INTEGER; 

pred_ndx ; INTEGER; 

leop cnt, jen. INTEGER, 

found : BOOLEAN; 

ELGG. CCH array2; 

IE) Oy Ke) o) 2 “abray2; 

PNnES, Gadd i DNTECER, 

no active BOOLEAN ; 
begin 

rlog tcp(1) := byte(0); 

rlog_ tcp(2) := byte(16#17#) ; 

ftp cep (jessy ee (0): 

ftp tcp (2 )ses— by ce (leas); 

loop Cnet 4 = 70; 

loop 


pred_ndx := pcb head; 
ndx := pceb(pcb head).pcb ptr; 
Loop 
EXIT WHEN ndx > num_prts; 
case pcb(ndx).pstate is 
when clsing => 
if pcb(ndx).sec_act then 
get_tcb ndx(pcb(ndx).s prt ad, inx, founda 
tcb cls(inx) ;--CLEAR RETRANSMISSION QUE. 
tcp close(pcb(ndx).s prt_ad); --SEND Fie 
while pcb(ndx).s prtq /= 0 
loop--DELETE DATA ON SECOND CONNECT iGas 
qadd:=mem_manag_ tbhl(pcb(ndx).s_prtq); 
give memory (pcb(ndx).s prtq); 
peb(ndx).s prtq := qadd; 
end loop; 
pceb(ndx).sec_act := FALSE; 
else 
IF pcb(ndx).sent THe 
pcb(ndx).time wait := 
pcb(ndx).time wait + 1} 
IF pceb(ndx).time wait=threshold THEN 
get tcbh ndx(pcb(ndx) .l prtraeeg 
indx, founda 
tcb €l siamese, 
pcb cle(naw: 
pcb(pred ndx).pcb_ptr := 
pcb (ndx) .pcb ptm 
ENDS Gr 
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pedi) ee veen <= ptr; 
Deb (peEr).Pstate := local; 


peb(i).Pstate := local; 
peb(ptr).sent := FALSE; 
EGIL 

END IF; 


Dem ¢="ptr +1) 
ii 2pere NUMNepEcs THEN 
Supima Co (ij .data pre, 
code quit); 
EXIT; 
END IF; 
END LOOP; 
WHEN others =>--BAD CODE RECEIVED. 
: Stier pee Cilijmdacay pre, code Cills) ; 
END CASE; 
END IF; 
LE peba)-sapeeo /— © THEN 
blk <= peb(i).s prtoQ; 
mem(blk).frm_len := 
arr to _int(mem(blk).urg)+hdr_ len; 
send _trns(mem(b1lk) .wnd(1) 'ADDRESS, 
PepiG@yedacarpae, 
mem(b1lk) .frm_len) ; 
IF mem(blk) .frm_len=0 THEN 
give memory (blk) ; 


peb(1)-s_prtO := 0; 
END IF; 
BND IF; 
ELS . 
IF pcb(i).Pstate = rlogn OR pcb(i).Pstate 
= rftp THEN 
check retrns®(pebi(i)-1 prt ad); 
END IF; 
END IF; 
Pepe) er staces7— Cls AND NOT peb(i).is print 
THEN 
no active := FALSE; 
END IF; 
END LOOP; 
Mero active THEN 
initialize mem; 
MND LF ; 
loop _cnt := 0; 
PND LF ; 
end loop; 
end poll; 
begin --INITIALIZATION FOR CONTROLLING PACKAGE. 
peb(pcb head).pcb ptr := pcb head; 
FOR i IN 0..num_prts LOOP 
Pebemmdata prt j= 1 * 4 )(32)>% (178)) + 256; 


Bey 


END 


--init 


pcb(1).stat prt :=8pcb(1) “datageaeses, 
pceb(i).cmd_ prt :=—pceb(1) -staeupmre. ser 


CASE.i is --list printers here 
WHEN O => pcb(i).is_print := TRUE; 
WHEN others => pcb(i).is_ print := FALSE; 
END CASE; 


outprt (peb(1i) stati prert, medome 
outprt (peb (1) -statlprer), medezye, 
outprt (peb (a )2emdapre, commer, 


IF peb(i). is pr aee tae 


peb(i).Pstate := lstn; 
ELSE 
peb(i).Pstate := cls; 


Outprt (peb(1) data pre ,codemels is, 
END IF; 


Ped (1) bute ine emt ro. 

FOR j IN 0..max_flag byt LOOP 
peb(i).snd(j) := BYTE(0); 
peb(i).ack(j) := BYTE(0); 

END LOOP; 

PED) flgebyt ya—mew er 

peb(!)  flg bit = 2s kee. 

LOOP; 
1alize memory 


initialize mem; 


--the following initialization is the internet protocol 
--address assigned to the aegis system and listed in the 


--VAX UNIX local host table for 'npscs-aegis' 


loc ip ad(1) := byte(16#c0#) ; --decimal equivalent: 192 
loc ip ad(2) := byte(16#09#) ; oe 9 
loc ip ad(3) := byte(16#c8#) ; == 200 
loc ip ad(4) := byte(16#04#) ; -= 4 
Nxe prt ad <= 1024; 

nesOl0tek = -— i RUE- 

eth.type pck(1) := BYTE(8);--address resolution protocol 

eth.type pck(2) := BYTE(6);--see RFC 826, Ntwk Info y@mee 

eth.ar nnd (1) = BYTE(0); 

eth.ar_hrd(2) = BYTE(1); 

etn ar spre Cl!) = BYTE(S) ; 

eth.ar pro(2) = BYTE) 

eth.ar len(1) = BYTE(6) 

eth.ar lem) s= BYTE CG) 

eth.nul $= BYTE GOje. 

eth.fm_ip s= loc ipsadr 

FOR 1 IN 1..max_ad LOOP 


ad_tb1(i).update := 0; 
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END LOOP; 

ntrpt := disable; 
outprt(able reg,disable) ; 
inprt (stat _reg,val); 

perf cmd(go off); 

perf cmd(reset) ; 
eMipme( lewl prt, i1cwl) ; 
Suepre(lcw2 prt,icw2); 
Sucprce(icw4 prt,icw4) ; 
outprt(ocw_prt,ocw); 


ASM sti; --set interrupt-enable flag 
perf cmd(go_on); ; 
perf cmd(rcv_stat); 
ptr := 1; ; 
LOOP 
mip mtrpt. reg, val) ; 
EXIT WHEN otstbit(val,sba) ; 
IF otstbit(val,srf) THEN 
inprt(stat_reg,val) ; 


mem(1).data(ptr) := val; 
Dem s— Per + 1; 
END IF; 
END LOOP; 


mrt: (stat reg,val) ; 
FOR i IN 1..6 LOOP 
loc eth_ad(i) := mem(1).data(it+3) ; 
END LOOP; ONEW_LINE; 
OPUT ("RUNNING") ; 


ONEW LINE; 
eth.fm_eth_ad := loc eth ad; 
eth.fm_eth := loc eth _ad; 
ad_tbl(max_ad).eth_ad := loc_eth ad; 
ad_tbl(max_ad).ip ad := loc_ip ad; 
ad_tbl(max_ad).update := INTEGER(16#7FFF#) ; 
perf cmd(cl_ insert mode) ; 
ntrpt := rev_pck; 
puepre(able reg,rcv_pck) ; 
Doll; 
perf cmd(reset) ; 

end poller; 


ENS) 


BATCH FILE IN COMPILATION ORDER 


The following is the contents of the batch (.bat or .sub) 
file used to compile the preceeding programs. 


era globall.sym 
era assylib.sym 
era lib.sym 

era ntrpthd.sym 
era convblk.sym 
era pcbrec.sym 
Cra ECDreC. svi 
era iprec.sym 

era ethrec.sym 
era rcv.sym 

era ethsend.sym 
era ipsend.sym 
era tcpsend.sym 
era locxfer.sym 
Janus globall.spc 
janus assylib.spce 
jJanus 11ib.spc 
janus ntrpthd.spc 
janus convblk.spec 


janus 
janus 
janus 
Janus 
janus 
janus 
Janus 
jJanus 
janus 


pcbrec.spc 
tcprec.spc 
Ipreeaspe 
ethrec.spc 
EeVaspc 
ethsend.spc 
ipsend.spc 
tcpsend.spc 
locxfer.spc 


jasm86 assylib.asm 
janus lib.pkg 

jasm86 ntrpthd.asm 
jJasm86 convblk.asm 


janus 
janus 
janus 
janus 
Janus 
janus 
janus 
janus 
janus 
janus 
7 aerna< 


pcebrec.pkg 
teprec. pkg 
IOEee. pkg 
ethrec.pkg 
DRONA) Oo | 
ethsend.pkg 
ipsend.pkg 
tcpsend. pkg 
16oGxterspkg 
poller.pkg 
poller/re 
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APPENDIX G 


LISTING OF 2-100 TELNET PROGRAMS 


a  aiiaaiaens ia 


=-—PACKAGE: TELNET. PKG 

--AUTHOR: ALEC YASINSAC 

DALE: DEC 19¢5 

S—orolekM NAME: TELNET 

--EXTERNAL REFERENCES: 1. GET ADDR 
peeNeUT: HOSTS.FIL 


ae onoCRIPTION: 


TELNET ALLOWS A USER AT A Z-100 TO UTILIZE THE MULTIBUS 


SYSTEM AND ETHERNET TO BECOME A REMOTE TERMINAL TO OTHER 


HOSTS ON ETHERNET. THIS PROGRAM SENDS A CONTROL 
CHARACTER TO ITS DESIGNATED OUTPUT PORT FOR THE 8612 
CONCENTRATOR THAT IDENTIFIES THE FUNCTION TO BE 
PERFORMED. THIS PROGRAM ALSO DETERMINES THE INTERNET 
PROTOCOL ADDRESS AND FORWARDS THAT INFORMATION TO THE 
8612. THE 8612 PERFORMS ALL THE TELECOMMUNICATION 
PROCESSES NECESSARY TO NAVIGATE PROTOCOLS. TELNET 
MERELY PASSES DATA BETWEEN THE USER AND THE 8612. ONCE 
LOGGED ON TO THE REMOTE HOST, THE Z-100 USER CAN 
NAVIGATE ANY HOST ACCESSIBLE TO THE REMOTE HOST. FOR 
EXAMPLE, A USER CAN LOG ON TO THE VAX UNIX SYSTEM AND 
FROM THERE LOG ON TO NODES IN ARPANET WHICH IS SERVICED 
BY VAX UNIX. 


with bit, asmlib, get_ip, io; 
procedure telnet is 


use bit, asmlib, get_ip, io; 

meeacddr: array (1..4) of byte; 

addr: array (1..4) of integer; 

ocwl reg: constant integer := (16#00f3#) ; 

ocwl: constant byte := byte (16#aa#) ; 

auxprt: constant integer := (16#00ec#) ; 

term: constant byte := byte(16#1d#); ==) 
code cls: constant byte := byte(16#c3#) ; --C 
code abort: constant byte := byte(16#c1#) ; --A 
code status: constant byte := byte(16#d3#); --S 
code arlog: constant byte := byte(16#d2#); --R 
dat: constant integer := (16#ec#); 

stat: constant integer := (16#ed#); 

cmd: constant integer := (16#ef#) ; 

clr: constant byte := byte(16#25#) ; 

DSR: constant integer := 7; 

DTR: constant byte := byte(16#27#) ; 
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RxRdy: constant integer := 1; 

rs232 delay: constant integer := 100; 
hosts, auxfile: file; 

Chis “characters, 

outcnt, len, cnt, ptr: aneeger, 
datstrg: array (1. .512) 76: oe, 

ok, cnt_exit: BOOLEAN; 

org ocwl, byt, data, charvbye- By ia, 


function checkterm return boolean is 
use asmlib, io; 
byt; byece- 


begin : 
if keypress() then 
Gece (bye). 
case byt is 
when byte(16#1d#) => return true; 
when others => null; 
end case; 
return false; 
end. se --END IF KEYPRESS. 
end checkterm; 


begin --begin TELNET 
inport(ocwl_ reg,org_ ocwl); 
outport(ocwl reg,ocwl) ; 
GUEDOEE (cna: clr), 
new line; new_line; 
clrscreen; 
put ("WELCOME TO THE MULTIUSER SYSTEM TELNET PROCESS 3m 
new line; 
open (hosts,"hosts.f1il",read_only); 
if iloresult = 255 then 
PuUtC("FILE *HOSTS.FIL’ DOES NO) exis, 
ELSE 
if end_of file(hosts) then 
put ("NO DATA IN FILE “HOSTS. Fit, 
close(hosts) ; 
else 
close(hosts); 
get addr(addr(1) ,addr(2) , addr (3) Fadja aay 
1f ((addr(1) = 0) and (addr(2) = 0) and 
(addr(3) = 0) and (addr(4) = 0)) then 
new_line;--BY CONVENTION, telnet RECOGNIZES AN 
new _line;--IP ADDR OF ZERO AS USER TERMINATION. 
put (“TELNET TERMINATED BxYS@sSnh on, 
else 
new_ line; 
for i in 122 4elees 
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bytaddr(i) := byte(addr(i)); 
end loop; 
open(auxfile,"aux",read write); 
write(auxfile,code arlog) ; 
SleponnCaumpme, COE aistoc); 
PUT (" CONNECTING WITH CONCENTRATOR.") ;NEW_ LINE; 
loop 

inport(stat,data) ; 

IF tstbit(INTEGER(data) ,RxRdy) THEN 

clrscreen; 

PUT (evel peeee  ep ew LENE ; 

inport (dat, data) ; 

case data is 
when code arlog => exit; 
when code cls => 

write(auxfile,code arlog) ; 
when others=>write(auxfile,code arlog) ; 
end case; 

if checkterm() then 
return; 

enduair- 

END IF; 
end loop; 
close(auxfile) ; 
loop 
len := 4; 
send trns(bytaddr'address,dat,len) ; 
EXIT WHEN len = 0; 
if checkterm() then 
return; 
end if; 
end loop; 
OMEDoOreE( cma, Clr) ; 
Suten. := 0; 
LOOP --MAIN LOOP SENDING DATA BTWN HOST & USER. 
IF keypress() AND outcnt = 0 THEN 
--OUTCNT = 0 MEANS LAST CHAR WAS SENT. 

Geren (enarbyec) ; 

EXIT WHEN charbyt = term; 

OuUCCNe += 1; 

END LE; 
IF outcnt = 1 THEN 

Inpeorc(stat daca. 

IF NOT tstbit(INTEGER(data) ,DSR) THEN 
Sendmeunsc( Charly. ADDRESS ,dat, outcnt) ; 
S—OULe hl Wthiieare oO CF SEND SUCCESSFUL. 

END IF; 

END IF; 

inport(stat,data) ; 

IF tstbit(INTEGER(data) ,RxRdy) THEN 
ipore(daty-data) > 
EXIT WHEN data = code cls; 
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END IF; 
INDOFE (StCaAE, daca, 
IF tstbit(INTEGER(data) ,DSR) THEN 
Ptr 3=. 5127 - 
get trns(datstro “ADDRESS dae, pea 
FOR i IN 1..ptr LOOP 
prntdata(datstrg(i)); 


END LOOP; 
ENDeie 
END LOOP; 
end if; -- ENDS 'IF ADDR = 0 
end aL; -- ENDS * IF END OF FPREE(HOSTS)* 
end if; --ENDS 'IF IORESULT = 255 
new_line; 
outport (dat, code cls) ; 
OUTPOLre(ocwl reg,oOrg OCWl); =-=FeSteretsuarue 
end telnet; 
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APPENDIX H 


LISTING OF 2-100 FTP PROGRAMS 


maech typpkg; 
package funcs is 
use typpkg; 


function checkterm return boolean; 

function get opt return cmd_typ; 

function get password return string; 

function get username return string; 

function get portnum return string; 

function get filename return string; 

function get parameter(opt:in cmd_typ) return string; 


end funcs; 


mtn typpkg, strlib, io, bit, asmlib; 
package body funcs is 
use typpkg, strlib, io, bit, asmlib; 


function checkterm return boolean is 
use asmlib, io; 
byt: byte; 


begin 
if keypress() then 
@put("got keypress"); new_line; --stub. 
getch (byt) ; 
case byt 1s 
when byte(16#1d#) => return true; 
when others => null; 
end case; 
return false; 
end if; --END IF KEYPRESS. 
end checkterm; 


function get_opt return cmd typ is 
-~-AUTHOR: ALEC YASINSAC APRIL 86 
BeeeockLPLION: GET OPTION DISPLAYS THE POSSIBLE FTP OPTION 
== SELECTIONS AND PROMPTS THE USER TO SELECT AN OPTION. 
eed OPTION IS RETURNED AS THE ONLY OUTPUT. 
fai. ERNAL CALLS TO: l. IO.GET LINE. 

use lo; 

str: string; 
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chr, Junk: character: 
valid: boolean; 


begin 
loop 
valid := true; new_line; 
put ("ENTER THE FIRST CHARACTER ©P sitar 
put(" OPTION YOUSPRER PERT. new_line; 


Puc <S>END A FILE "); new_line; 
pue: <G>ET A PILE new_line; 
pie <DSELETE VA HbGE we new_line; 
Duet: <L>IST THE WORKING DIRECTORY "); 
put("(“S will stop seroll."); newmems, 
Die Cs <C>HANGE THE WORKING DIRECTORY") ;new_line; 
putc" <H>ELP new line; 
pucC! <QO>UIT FIP {2 new_line; 
loop 

DUE ('ORTECN sn, 

str := get_line(); 


exit when (length(str) > 0); 
end loop; 
ehr = -sem( 1); 
put (" ) 
case chr is 
when 'S'!'s' => put("SEND"); new line; 
return stor; 
when 'G'!'g! => put("GET"); new line; 
return retr; 
when 'D'!'d! => put("DELETE"); new_line; 
return dele; 
when 'L'!'1' => put("LIST"); new_line; 
return nlst; 
when 'C'!'c' => put("CHANGE"); new_line; 
return cwd; 
when 'H'!'h' => put("HELP"); new_line; 
return help; 
when 'Q'!'q' => put("QUIT"); new _line; 
Fecturn Cuit; 


when others => valid := false; new_line; 
put("THE ONLY VALID OPTIONS ARE: "); 
put("'Ss', 'G') ' DD’, cine 'c', 'H' AND 1C' ye 
new_line;new_line; put("PLEASE REENTER.") ;new_line; 
end pease; 
exit when valid; 
end loop; 


end GevL ope, 

function get password return string is 

--AUTHOR: ALEC YASINSAG DATE: APRIL 1986 
--DESCRIPTION: THIS PROCEDURE PROMPTS THE USER TO ENTER 
--~ A VALID PASSWORD AND RETURNS THE ENTERED STRING. 
—-=EATERNAL CADES Te: i: IO.GET LINE. 
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== Dee re oer Gel fe 


mee asmlib, 10, strlib; 

goodpw: boolean; 

i : integer; 

byt: byte; 

pas String; 

cntl rt _ brack: constant byte := byte(16#1d#) ; 


begin 
loop 
goodpw := true; 
put("ENTER YOUR PASSWORD ") ; 
put("[no special characters]."); 
new line; : 
put("PASSWORD: "); 
pws = Wit 


loop --GET THE PASSWORD FROM. THE CONSOLE. 


pyc: —= NO echo() ; 
case byt is 
when byte(16#0d#) => 
Pim > 1) then 


exe? 
else goodpw := false; 
exit; 
end if; 
i when byte(65)..byte(90) => --A..Z 
pw:= insert(pw,char_ to str(byte_ to chr(byt)),1); 
when byte(97)..byte(122) => SA 


pw:= insert(pw,char to str(byte to chr(byt)),1); 
when cntl_rt_brack => 
mecurn "'" > 
when others => goodpw := false; 
exit; 
end case; 
end loop; new_line;--END ONE TRY AT ENTERING A PASSWORD. 
exit when goodpw; 
end loop; 
return pw; 
end get password; 
function get_username return string is 
aeeeerOR: ALEC YASINSAC DATE: APRIL 1986 
SeockIPTLION: THIS PROCEDURE PROMPTS THE USER TO ENTER 
ag A VALID USER ID AND RETURNS THE ENTERED STRING. 
eeoetERNAL CALLS TO: 1. I0.GET_ LINE. 
—— Creo Be shi GLa 


use lio, asmlib, strlib; 
goodname: boolean; 
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username: string; 
byt: byte; 
cntl rt _brack: constant byte >= byeete tae 


begin 
loop 
goodname := true; 
loop 
DUE (“USER NAME ae: 
username := get _line(); 
exit when (length(username) > 0); 
end loop; 
for 1 in 1..length(username) loop 
byt := conv_byt(username(i) ) ; 
case byt lis : 
when byte(65)..byte(90) => -=- A-->Z 
nui; 
when byte(97)..byte(122) => “= a-=->Z 
null; , 
when cntl rt brack => 
reeurne! ; 
when others => goodname := false; 
exit; 
end case; 
end loop; 
exit when goodname; 
end loop; 


return Username; 
end get username; 


function get portnum return string is 


--AUTHOR: ALEC YASINSAC DATE: APRIL 1986 
--DESCRIPTION: THIS PROC ISSUES REQUEST TO THE S6UZyA5 ee 
-- FOR A NEW TCB TABLE TO BE EST AND NEW PORT NUMBER 

-- ASSIGNED. GET PORTNUM THEN READS NEW PORT NUMBER AND 
-- CONVERTS IT INTO A STRING THAT CAN BE TRANSMITTED AS 
-=- THE PARAMETER TO THE FIP PORT Ge. 

--EXTERNAL CALLS TO: 1. BIT.@UTPORT/TSG507, (NPok 

-- 2. ASMB.BYTE TO CHAR. 

use bit, strilib, asmlib,” tyepna, 


bVt: Dy te, 
SYC arr wey tesgamnay 
int, i, j, timer, amt : integer; 


pOLrenum, coma, str: String. 


begin --BEGIN PROCEDURE GET? EGRniuie 
put("in get portnum"); --stub. 
OUEPOFE (ata Cm mpige, © aim)n, 
byt arri( ll). = byre( os 
outport (aux data prt,code getcpad) ;-=REQUEST TCP ADDR 
timer := 0; 
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1 Zele}e --WAIT FOR DATA RECEIVE READY. 
if checkterm() then 
Beecurh "" } 
end if; 
impobhe (aux stat prt,byt) ; 
if tstbit(integer(byt),rxrdy) then 
inponeralx Gddtampre, DYt) 7 
case byt is 
when code getcpad => exit; 
when code open => put("sending port w/ sec act"); 
meremaam.) °°)" s 
whem code cls? code abort => return ""; 
when others => null; 
@put ("control code=") ;put(integer (byt) ) ;new_line; 


ee olmepe tiie d cd pat GcOdcyGetepad) ; ==SiLub. 
Stheworis (alu cca pat Clr}; 
end case; ; 
end if; 
end loop; 
loop --WAIT FOR DATA SET READY. 
ame <= 513; 


maponre(aux stat prt, byt) ; 
if tstbit(integer(byt),dsr) then 
Fer memiotmoycudhit aacdress aux data prt, amt) 7 
exit when amt > 0; --S$$$ 
end if; 
end loop; 
if byt _arr(1) = code addr then 
} := 1;-- POINTER FOR BYT ARR. BYPASS THE CONTROL BYTE. 
portnum := ""; 
soma :;= "> 
Loop 
--CONVERT BYTES FROM CONCENTRATOR INTO INTEGERS 
--AND THEN INTO A STRING WITH COMMAS. 
ioc. + le 
int := integer(byt arr(j)); 
See Ine to str(int) ; 
portnum := insert(portnum,str,1); 
exit when j = 7; ==BDORE ooo ho oLK BYTES LONG. 
portnum := insert(portnum,coma,1); 
end loop; 
else ——EteerPROGEOS LS OUT GF SYNC. REVERT TO 
null; --USER OPTIONS. LEAVE PORTNUM AS ALL BLANKS. 
put ("BAD PORT NUMBER FROM CONCENTRATOR. ABORTING.") ; 
new line; 
end if; 
return portnum; 
emer. get portnum; 


function get filename return string is 
--AUTHOR: ALEC YASINSAC DATE: APRIL 86 
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--DESCRIPTION: THIS PROCEDURE PROMPTS THE USER [Gea es 
-- A VALID FILE NAME AND RETURNS THE ENTERED STRING: 
--EXTERNAL CALLS TO: 1. I0.GET LINE. 
-- 2. STRLIB. INSERT, LENGE 
= 3. ASMLIB-GELCG. 

use asmlib, strlib, io; 

i, name_len, ext_len, ctr, strlen: integer; 

good name, has_ext, got_colon: boolean; 

instring, filename: string; 


temp: file; 
byt: byte; 
begin --BEGIN FUNCTION GET FILENAME. 
loop --LOOP UNTIL GOOD NAME. 
loop 


put("FILENAME: "); 
instring:= get_line(); 
exit when length(instring) > 1; 
end loop; 
good _ name := true; 
has ext := false; 
got colon := false; 
name len := 0; 
ext_len := 0; 
i 2=320- 
filename := ""; 
loop ~-LOOP TO CHECK THE DRIVE DESIGNATOR AND NAME. 
bE ee Oe re 
byt. :—=seconv byt (instrinci( a ee 
case byt is 


when byte(97)..byte(122) ! ~~ a..2 
byte(65)..byte(90) ! ~~ A..Z 
byte(48)..byte(57) => += 0..9 

if name_len < 8 then 
filename := insert(filename, 
char to str(instering (2) yao 
name len := nane Tengaae 
else 
good _ name := false; 
put("FILENAME TOO LONG."); new_line; 
end if; 
when byte(32) => -- space 
if name _ len = O then 
nud; ~-SKIP LEADING SPACES. 
else 
exit; 
end if; 
when byte(58) => -- colon (:) 
if (not got colon) and (name len = 2)een en 
name Jen := name lenge 
filename :=insert(filename,char_ to str(':'),1); 
got_ colon <= true, 
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else 


good name := false; 
put ("ONLY ONE COLON ALLOWED."); new line; 
end if; 
when byte (46) => --period (.) 
filename :=insert(filename,char to str('.'),1); 


nas ext: —= true; 
when byte(16#1d#) => return ""; 
when others => good name := false; 
put ("CONTROL CHARACTERS NOT ALLOWED.") ;new_line; 
end case; 
exit when (i = length(instring)) or not good name 
or has ext; 
end loop;--END LOOP TO CHECK THE DRIVE DESIG AND NAME. 
if name _ len = 0 then 
good name := false; 


else 
if has_ext then 
loop 
exit when (ext_len > 2) or 
not good name or (1 = length(instring) ); 


ieee 2 + 1s 
case instring(i) is 
Wierda <eeZte et AT. IZ! fF OT... tg! => 
filename := insert(filename, 
Ghat eeemoEm instr ing(i)), 1); 
Sxanelen > — exti ten + 1; 


when ' ' => ext_len ;:= 3; 

when others => good name := false; 
put ("UNIDENTIFIED CHARACTERS IN EXTENSION.") ; 
new line; 


end case; 
end loop; 


end if; --END IF HAS EXT. 
end if; --END IF NAME LEN = 0. 
exit when good name; 
end loop; 


return filename; 
end get filename; 


function get parameter (opt: in cmd typ) return string is 
=—-DESCRIPTION: USER OPTIONS ATTACHES THE PARAMETER TO THE 
SaOrLLON SELECTED. 
peal eRNAL CALLS TO: 
-- 1. FUNCS.GET FILENAME/GET PASSWORD/GET USERNAME. 

use 10; 

parm, dirname, remname, locname: string; 


begin 


case opt is 
when nlst => parm := ""; 


Zn 


when cwd => 
put ("ENTER THE REMOTE DIRECTORY NAME. "); new line; 
parm := get line(); 
when dele => — 
put ("ENTER THE NAME OF THE REMOTE FILE TO BELETI 
new_line; 
puc (“FLEE SNA a, 
parm := get line(); 
when pass => 
new_line; 
parm := get password(); 
when port => 
new_line; 
parm := get_portnum() ; 
when retr => : 
put ("ENTER THE NAME OF THE REMOTE FILE TO RETRIEVE 
new_line; 
put("FILE NAME: "); 
parm := get _line(); 
when stor => 
put ("ENTER THE REMOTE FILE NAME) TO STORE IN TO338 


new_line; 
Dut (CS LEE NAME ").; 
parm := get_line(); 


when user => 
new_ line; 
parm := get_username(); 
when others => parm ;:= ""; 
end case; 
return parm; 
ena “Gel iparaniccer, 


end funcs; 


with typpkg; 
package libi is 
--WRITTEN FOR Z100 UNDER ZDOS 
use typpkg; 
procedure send _cmd(cmd: in out cmd_typ; 
parameter: in string); 
procedure user options(opt: out cmd_typ); 
procedure get _dataline(dataline: out byte array; 
ctr: out integem 
procedure make reply(dataline: in byte array; 
GEr+ in integer: 
reply: out integer; parameter: out string); 
procedure process reply(reply: in integer; 
parm: in string; state:"in cut ecmageyae 
end Tibi; 
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fem asmlib, blkio, funcs, 10, strlib, bit; 
package body 1ibl is 
use typpkg; 


procedure send cmd(cmd: in out cmd typ; 

parameter: in string) is 
--AUTHOR: ALEC YASINSAC DATE: APRIL 1986 
meeUrer NTs 28 APRIL 86 
--DESCRIPTION: SEND COMMAND CALLS INTERNAL PROC 'CONVERT' 
-- TO CONVERT THE ENUMERATED TYPE "CMD" INTO A STRING AND 
-- SENDS THE STRING WITH ITS PARAMETER OUT THE SERIAL PORT. 
-- IF THE COMMAND CANNOT BE SENT OR THE USER TERMINATES, 
eel WLLL BE SET TO ABORT FTP. OTHERWISE, CMD IS NOT 
peeeODLEF IED. 
Sete RNAL CALLS TO: 1. BIT.INPORT/OUTPORT/TSTBIT. 
== Ze SOL RELS. LENGTH. 

cy I0.WRITE/OPEN/CLOSE. 
4. ASMB.BYTE TO CHAR. 
use typpkg, asmlib, io, strlib, bit; 
ByYC: byte; 
cmdline, cmdstr: string; 
suLiex: string(2) ; 
addr, len: integer; 
chr: character; 
timer: integer := 0; 
timeout: constant integer := 50 
mpeecedure convert(cmd: in cmd typ; cmdstr: out string)is 
--AUTHOR: ALEC YASINSAC DATE: APRIL 1986 
--DESCRIPTION: CONVERT CONVERTS THE ENUMERATED TYPE 
-- COMMAND "CMD" INTO A STRING. 
begin 
case cmd is 
when abor => 


O 


cmdstr := "abor"; 
when cwd = 
cmdstr := "cwd ">; 
when dele => 
cmdstr := "dele "; 
When help => 
cmdstr := "help"; 
when nlst => 
cmdstr := "nlst";--LIST DIRECTORY. 
when noop => 
emdsterm s— 'noop"; 
when nul => 
Gmestr := “noop"; 
when pass => 
cmdstr := "pass ";--PARM IS THE PASSWORD. 


Zo0 


when pasv => 


cmdstr := "pasv"; 
when port => 
cmndstr <= "Upon. 
when quit => 
emdadstr <= "quae 
when rein => 
cmdstr := "rein ";--REINITIALIZE. 
when rest => 
cmdstr := "rest ";--RESET. 
when retr => 
cmdstr := "“"retr “;=-GET Avr ree 
when stat => 
cmdstr := "stat"; 
when stor => 
cmdstr := "store 
when user => 
cmdstr := "user ";--PARM IS THE USER ID. 
when others => 
cmdstr := “noon, 
put ("ERROR OCCURRED. CMD NOT RECOGNIZED." ); 
new line; 
end case; 


end convert; 


begin --BEGIN PROCEDURE SEND COMMAND. 
@put("send cmd"); new line; 
convert(cmd,cmdstr) ; 


cmdline := insert(cmdstr,parameter,1);--ATT CMD TO PARM. 
SWUET ix <= Wb: 
SuLfix(l)e:= byce toyehmcer) 
suffix(2) := byte to chr(1f); 
cmdline := insert(cmdline,suffix,1); --ATTACH CARRIAGE 
-~-RETURN AND LINE FEED TO THE COMMAND STRING. 
Siete, fee ts 
suffix(1) := byte to chr(code_ cmd); 
cmdline := insert(suffix,cmdline,1); 
loop 
inport(aux_stat_prt,byt); --WAIT UNTIL DSR GOES LOW. 


if not tstbit(integer(byt),dsr) then 

-~THE FIRST BYTE OF A STRING IS ITS LENGTH, ADD ee. 
--TO THE ADDRESS OF THE STRING TO START AT THE Fine 
-=—-BYTE OF THE MESosAGeE. 


addr := cmdline'address + 1; 

len := length(cmdline) ; 

send trns(addr, aux data preys, 

exit when len = 0; 

timer := timer + 1; 

@put("no cmd sent. cmd = ") ;put(cmdline) ;new_line; 
end if; 
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Deetimer > Cimeout imhen 


cmd := abor; 
put("NO RESPONSE FROM CONCENTRATOR." ) ; new_line; 
exit; 
else 
timer := timer + 1; 
end if; 
end loop; 
apm ‘ema = S$") 7put(emdline); put("$$") ;new line; 
@put ("length = ") ;put(length(cmdline) ) ;new_line; 


end send_cmd; 
procedure user options(opt: out cmd _ typ) is 
--AUTHOR: ALEC YASINSAC DATE: MAY 86 
=-—OUTPUT: THE COMMAND THAT THIS PROCEDURE TRANSMITTED IS 
See LDENTIFIED BY THE OUT PARAMETER. 
SewDBoCRIPTION: USER OPTIONS IS CALLED WHEN ACTION IS 
Se ON ALL PREVIOUS COMMANDS. wr IS) EXPECTED THAT IF THIS 
pee ROCEDURE IS CALLED, THE USER IS LOGGED IN TO THE 
feo role. FROM HERE, THE USER CAN REQUEST A FILE 
SLR ANOSrER, CHANGE DIRECTORY ON THE REMOTE HOST, LIST THE 
eee RECTORY ON THE REMOTE HOST, OR TERMINATE THE PROCESS. 
Sean USER OPTIONS PROCEDURE ALSO OPENS AND CLOSES LOCFILE 
See OR RETRIEVING OR SENDING DATA TO/FROM THE REMOTE HOST. 
fae leRNAL CALLS TO: 1. I0.0PEN/CLOSE/CREATE/ DELETE. 

use io, funcs; 

filename, parameter: string; 

got opt:. boolean; 


begin 
if 1s open(typpkg.locfile) then 
close (typpkg.locfile) ; 
end if; 
got opt := false; 
Spee s= get opt(); 
case opt is 
when retr => 
put ("ENTER THE LOCAL DESTINATION FILE NAME."); 
new_line; 
filename := get _filename() ; 
purge(filename) ; --PURGE WILL NOT ABORT IF THE 
ee eee Nabi = DORSMNOT EXIST. 
create (typpkg.locfile,filename,write only); 
when stor => - a 


loop 
Puc eENTER THE bOCALPSCURCE FILE NAME. "); 
new line; 
filename := get filename() ; 


open(typpkg.locfile,filename,read only) ; 

exit when ioresult /= 255; 

put ("CANNOT OPEN FILE ") ;put(filename) ;put("."); 
new_ line; 
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end loop; 
when others => null; 
end case; 
parameter := get parameter(opt) ; 
send cmd(opt, parameter) ; 
end user options; 


procedure get dataline(dataline: out byte array; 
ctr: out integer) is 

~-AUTHOR: ALEC YASINSAC DATE: APRIL 1986 
--DESCRIPTION: PROCEDURE GET DATALINE DOES THE NECESSARY 
-~=-  HANDSHAKING WITH THE 8612 AND READS ANY DATA OR CONTROL 
-- CHARACTER IS COMING UP FROM THE FOREIGN SITE. OUTPUT IS 
-- THE DATA AND THE-BYTE COUNT. CONTROL INFO IS PASSED 
-- BACK AS THE FIRST CHARACTER OF THE DATALINE. 
--EXTERNAL CALLS TO: 1. BIT.INPORT/OUTPORI /TSibiae 
-- 2. ASMB.GET TRNS. 
—— 3.  IJO°KEYPREsSaor- 

use typpkg, asmlib, io, bit; 

ecntl chr rec : boolean; 

max wait: constant integer := 30000; 

1 : integer; 

byt: byte; 

INLINE Gwserine: 

cntr: integer; 


begin 
@put ("in get dataline"); new_line; 
OUEPOE (aux daca spine ce lta), 


cntl chr rec 3—= fallec, 
CUr 2=0;3- “ener :=20; 125 =—o), 
loop--WAIT FOR KEYPRESS, TIMEOUT, CONTROL CHARACTER,OR DSR. 
if funcs.checkterm() then --CHECKS FOR *%]. 
dataline(1) := code cls; 
FecuEn; 
end if; --END IF CHECKTERM. 
Chere: — Chere. --TEST FOR TIMEOCUM 


if cntr > max_wait then 
@put("time wait in get _dataline."); new _line; 
outport(aux_data_prt, code check_replyq); 
-- ACTS AS AN 'ARE YOU THERE’ REQUEST. 
Cner..— 0; 
end eine; --END IF TIMEWAIT. 
INpPOre( aux Stal pre, bye) 
if tstbit(integer(byt),rxrdy) then--TEST FOR CNTL CHR. 
Inpere (aux data pre no es, 
@put(" got cntl chr"); new) lame; 


CE =a; 
case byt is 
when code cls ! code abort => 
dataline(1) := code abort; 
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if is open(typpkg.locfile) then 
close (typpkg.locfile) ; 


end if; 

exit; --EXIT LOOP TO GET DATA FROM AUX PORT. 
when code open => dataline(1) := code_open; 
when code closdata=> dataline(1) :=code_closdata; 
when code gempty => dataline(1l) := code null; 
when others => ctr := 0; 

Gout (don! taerecognmzeuconerol character = "); 

@put(integer(byt)); new line; 

ieep --CLEAR AUXILLARY PORT. 


Inporme (auseeacat pre, oye) 7 
exit when not tstbit(integer(byt) ,rxrdy) ; 
INpege4 athe Gata pre, byl) ; 
@prntdata (byt) ; 
end loop; 
end case; 
end if; = Ne Pee Y « 
PApOrRe aux Stat pre, bye) ; 
if tstbit(integer(byt),dsr) then --TEST FOR DSR. 
Gti 513. 
get _trns(dataline'ADDRESS,aux_data_prt,ctr) ; 
Cpudsr(') ; 
ipectr > 0 then 
exit; 
end if; 
Beenie ie, ie temwlolbtlt FOR DSR. 
end loop;--ENDS LOOP WAITING FOR BYTES FM CONCENTRATOR. 
end get _dataline; 
procedure make reply(dataline:in byte array;ctr:in integer; 
reply: out integer; parameter: out string) is 
SEU RRENT$ 3 MAY 1986 
--AUTHOR: ALEC YASINSAC DATE: MAY 1986 
eeeeoCRIPTION: PROCEDURE GET DATALINE DOES THE NECESSARY 
-- HANDSHAKING WITH THE 8612 AND READS ANY DATA OR CONTROL 
Sec HARACTER IS COMING UP FROM THE FOREIGN SITE. 
pew eRNAL CALLS TO: 1. BIT.INPORT/OUTPORT/TSTBIT. 
== 2. ASMB.PRNTDATA/BYTE TO CHR. 
a Seo eNOnnds OLRE UL DS. 


Moe Sstrlib, typpkg, asmlib, bit; 
len, j3 : integer; 

em ; Character; 

mep : string; 


begin 
@put("in make reply"); 
len := ctr; 
parameter := ""; 
mor 3 in 2..len loop 


prntdata(dataline(j)); --DISPLAY REPLY ON SCREEN. 


257 


rep := nos 
ife((j > 5) and (@ < sO) cae 


chr := byte to char(dataline(j)); 
rep(1) 3:=#chiz, --TEMP STORAGE. 
parameter := insert(rep,parameter,1)j; 
end if; 
end loop; 
rep := W " 
£Or- ines ocp 
rep(j) := byte to char(dataline(j + 1)); 
if not (rep(j) im °0"..'O) eee. 
--NOT A REPLY. COULD BE A HELP MSG. 
reply := 0; : 
parameter := ""> 
@put("not a-reply "); put(rep); new_line; 
return; 
end if; 
end loop; 
reply := str_to_int(rep) ; 


end make reply; 
procedure get data(lst_cmd: in out cmd_typ) is 
~-AUTHOR: ALEC YASINSAC DATE: APRIL 86 
--INPUT: 1. LST CMD IS THE LAST COMMAND THAT WAS wotlie 
=—DEoGhr el FON: 
-- Get data calls get _trns to receive an expected data 
-~ transfer from the concentrator. If the transfer is not 
-=- received after ten tries, a code is sent asking for 
-- status of the data connection. 
== EXTERNAL CALLS IO; i. “LO.WREGEe 
== 2. ASMLIB.PRNTDATA. 

use typpkg, asmlib, 10, strlib, bre: 

reply, amt, strlen: integer; 

byt: byte; 

parameter: string; 

timer, Ctr: integer; 

dataline: byte array; 


begin -~-BEGIN PROCEDURE GETSEAts 
@put("in get data"); new line; 
timer := 0; 
Oop 
if funcs.checkterm() then 
lst_cmd := abor; 
rFecurn; 
ences. 


INPOLt (aux sstal peta ee, 
if tstbit(integer(byt),dsr) then 
CEre: — oo; 
get_trns(dataline'ADDRESS,aux_data_prt,ctr) ; 
if CteeOeehen 
case dataline(l) is 
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when code data => 
if ((is_open(typpkg.locfile) )and(ctr>1) ) 
then 
former 2. .Cekr Loop 
write(locfile,dataline(j)); 
@prntdata (dataline(j)); 
--LOCFILE IS OPENED IN USER_OPTIONS 
--WHEN THE RETR COMMAND IS SENT. 
end loop; new_line; 
@put ("DATA RECEIVED ctr= ") ;put(ctr) ; 
else 
for Jj} in 2..ctr loop--DISPLAY ON CONS. 
prntdata(dataline(j)); 
end loop; new line; 
end if; --END IF IS OPEN. 
when code reply=>--REPLY HERE OUT OF ORDER. 
make_reply(dataline,ctr,reply,parameter) ; 
case reply is 
when 221 ! 421 => lst_cmd := abor; 
when others => null; 
end case; 
when others => 
for j in 2..ctr loop--DISPLAY ON CONS. 
prntdata(dataline(j)); 
end loop; new line; 


end case; --END CASE DATALINE(1) IS. 
ened if; ——~E)DebbaecrR > 0; 
else am lOmwbone CHECK RXRDY. 


if tstbit(integer(byt),rxrdy) then 
inport (aux data prt,byt) ; 
case byt is 
when code closdata => 
if is open(typpkg.locfile) then 
close(typpkg.locfile) ; 
end if; 
@put ("data connection is closed") ; 
exit; 
when code open => null; --KEEP WAITING. 
when code cls => lst_cmd := abor; 
exit; 
when code abort => lst _cmd := abor; 
exit; 
when others => null; 
end case; 
else 
if timer > 3 then timer := 0; 
SUE POEEC AUX sddtampaeycode ApDEtsStat) ; 
else 
timer := timer + 1; 
end if; 
end if; --END IF RXRDY. 
end if; -- END IF DSR. 


Zou 


end loop; 
if is open(typpkg.locfile) then 
close(typpkg.locfile) ; 
end if; 
end get data; --ENDS PROCEDURE PROCESS DATA. 
procedure send data(lst cmd: in out cmd_typ) is 
use typpkg, io, asmlib, bit, funcs; 


time wait exceeded: boolean := false; 
len, 1, amt, Ctr: Ineeger:- 
byt: byte, 


byt are: byte area, 
is text: boolean; 


begin 
len := 0; 
loop --MAKE SURE REMOTE SERVER IS READY TO RECEI Vas 
OULPOLrt (aux data pre, codevdpetseac), 
Ine = OF 
loop --WAIT FOR CODE RETURNED FROM CONCENTRATCGES 
if funcs.checkterm() then --CHECKS FOR *]. 
lst_cmd := abor; 
return; 
end if; =—-BND IP CHECKTERM: 
i :=i+ i; 
INDORE GAUx Sea empire vice, 
exit when tstbit(integer(byt) ,rxrdy) ; 
if 1 > 3000 then -- CONCENTRATOR IN LOGE: 
time wait exceeded := true; 
exit; 
end if; 
end loop; 
INpPOrt’ (aux idacas pre, bye) 
if len > 1000 then 
time wait exceeded := true; 
else 
len := len + 1; 
ena 1h; 
exit when ((byt = code open) or time_wait_exceeded) ; 
end loop; --END LOOP CHECKING DATA CONNECTION. 
if byt = code open then --SEND WHOLE FILE TO 8612. 
put("IS FILE TO BE TRANSFERRED A TEXT File 
put(" (y/n): "); 
loop --DETERMENE IF TEXT From 


if keypress() then 
getch(byt); new_line; 
case byt is 
when byte(16#1da#) => --*] 
lst_cmd := quit; 
send_cmd(lst_cmd,"") ; 
return; 


260 


when byte(89) ! byte(121)=> =——V  ¥ 


is text := true; 
exit; 
when byte(78) ! byte(110)=> =—N tl 
is text := false; 
exit; 


when others => new line; 


put(" (y/n): "); 
endwcdse newline; 


end if; 
end loop; 

Ikexaye) --SEND AS MANY PACKETS AS REQUIRED. 
@new line; put("data to be sent = "); 
byt_arr(1) := code data; 
len := 1; . 
loop --STORE FILE DATA IN MEMORY READY TO SEND. 

len := len + 1; 


read(typpkg.locfile,byt_arr(len)); 
@prntdata (byt arr(len)); 
exit when len > 511; 
if is text then 
exit when end of file(typpkg.locfile) ; 


else . 
exit ‘when eof(typpkg.locfile) ; 
end if; 
end loop; 
@new_line; 
@put("num chrs = "); put(len); 


inMgett(aux Stat pret, byt) ; 
if tstbit(integer(byt),rxrdy) then--GOT CTL CHR 
inport (aux data prt,byt) ;--FRM CONCENTRATOR. 
case byt is 
when code _cls!code abort => 
put("ABORTED BY REMOTE HOST.") ; 


lst_cmd := nul; new line; 
return; 
when others => null; 
end case; 
end if; 
loop 
amt := len; 


SeVcmeLrisqoytldkhe dadaress aux Gata prt ,amt) ; 
exit when amt = 0; 
if keypress() then 
getch (byt) ; 
case byt is 
when byte(16#1d#)=> lst cmd := quit; 
Sencecma (lot CMa.) ; 
return; 
when others => null; 
end case; 
end if; SNe KEYPRESS. 


Zod 


end loop; --END LOOP WAITING FOR LOW DSR. 
@put ("packet sent"); new _line; 
if is text then 

exit when end of file(typpkg.locfile); 


else 
exit when eof(typpkg.locfile); 
end if; 
end loop;--END LOOP TO SND WHOLE FILE TO KEM Hosm 
@put("end of file reached"); new_line; 


outport (aux _data prt,code, closdacae 
close(typpkd. loetitle); 
else --COULD NOT OPEN DATA CONNECTION. 
null; -- THE DATA CONNECTION COULD NOT BE 
--OPENED. AN FTP REPLY SHOULD BESCCun ics 
end if; : -~-END IF BYT = CODE (OPER 
end send data; 
procedure process reply(reply: in integer; parm: in string; 
state: in out cmd typ)ima 


--AUTHOR: ALEC YASINSAC DATE: APRIL 1986 
--DESCRIPTION: PROCESS REPLY USES THE INPUT PARAMETER 

ae "REPLY' TO DETERMINE THE COURSE OF ACTION FOR THE 

-- SYSTEM TO TAKE. 'REPLY' IS THE FTP REPLY THAT A FOREIGN 
-~- SITE HAS GENERATED IN RESPONSE TO AN FTP COMMAND THAT 
~- ORIGINATED IN THIS MACHINE. POSSIBLE ACTIONS INCLUDE 
-~- (but are not limited to) TRIGGERING A DATA 

-~- TRANSFER, REISSUING A COMMAND, AND CLOSING A CONNECTION. 
-- ANY REPLY THAT IS NOT A REPLY THAT CAN BE TRIGGERED BY 
-- THE COMMAND 'STATE' IS IGNORED. OFTEN, A NOOP COMMAND 
-- IS SENT WHEN THE REMOTE HOST IS LIKELY TO SEND A SEGORS 
-- REPLY TO THE PREVIOUS COMMAND. THE SECOND REPLY WiIDiw@s 
-- DISPLAYED BEFORE THE REPLY TO 'NOOP! IS PROCESSED. 
--EXTERNAL SUBROUTINES: 

=-- 1. FUNCS.GET FILENAME/GET PARAMETER/GET PORTNUM/ 

-- GET PASSWORD/GET OPT/GET USERNAME/SEND CMD. 


use - CYpPpkKg,/-10,. funcs, ‘steely; 
parameter: string; 


begin --PROCESS REPLY. 
@put("In process reply."); new_line; 
case state is 
when acct => 
case reply is 
when 202 => state := noop; 
send cma (state, )e 
when 230 => 


parameter := get portnum(); 

if parameter = "" then 
state := quit; 

else 
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state := port; 
send cmd(state,parameter) ; 
end if; 
when 421 => state := abor; 
when 500 ! 501 => 
put ("ENTER YOUR ACCOUNT NUMBER: "); 
parameter := get line(); 
state := acct; 
send cmd(state,parameter) ; 
when 530 => parameter := get _username() ; 
if parameter = "" then 
State := abor; 
else 
state := user; 
send cmd(state,parameter) ; 
end if; ; 
when others => null; 
end case; 
~-End of ‘when acct'. 


when cwd ! dele => 
case reply is 
when 200!250 => state := noop; 
Send Cmewstace,;) '):; 
when 421 => state := abor; 
when 500 ! 501 ! 502 => state := noop; 
Send cmd(stare, ™™); 
when others => null; 
end case; 
--END WHEN CWD ! DELE. 


when help => 
case reply is 


When: 2d 2 200. 25025 —> state s:= noop; 
send cmd(state,"")7--2ND REPLY MAY FOLLOW 
when others => null; --THE HELP COMMAND. 
end case; 


--when nlst => see when retr. 


when noop ! port => 
case reply is 
when 200 => user options(state) ; 


when 421 => state := abor; 
when 426 => 
parameter := get portnum() ; 
if parameter = "" then 
state := quit; 
else 
state := port; 
send _cmd(state,parameter) ; 
end if; 
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when 500!501 =>null;--THIS SYSTEM WILL NOT SEM@ 
--AN INVALID PORT COMMAND OR PARAMETER. 


when others => null; 
end case; 
-~END CASE NOOP! PORT. 


when nul => --NUL IS THE Si 42R2 ole 
case reply is 
when 220 ! 530 => 


parameter ‘= get parameeer(ucomn:, 
if parameter = "" then 
state := abor; 
else 
state := user; 
send cmd (state, parameter) ; 
end if; | 
when 221 ! 421 => state := abor; 
when others => null; 
end case; 


when pass => 
case reply is 
when 230 => 


parameter := get portnum(); 
if parameter = "" then 

state := quit; 
else 

state := port; 

send cmd(state, parameter); 
end if; 


when 332 => 
put ("ENTER YOUR ACCOUNT NUMBER se. 
parameter := get line(); 
state := acct; 
send cmd(state, parameter) ; 
when 421 => state := abor; 
when 500 ! 501 => null; 
--ASSUME THIS SYSTEM CANNOT SEND BAD 
when 530 => 


parameter := GeC paraneeer Meer), 
if parameter = "" then 
state := abor; 
else 
state := user; 
send cmd (state, panamecern):, 
end, 16; 
when others => null; 
end case; 


--End of ‘when pass'. 


--when port => SEE WHEN NOOP. 
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PASSWORD. 


when quit => 
case reply is 
when 221 ! 421 => state := abor; 
when others => null; 
end case; 
--END WHEN QUIT. 


when retr ! nlst => 
case reply is 
when 110 ! 125 ! 150 =>null;--Wait for another reply. 
when 221 ! 421 => state := abor; 
when 226 => get _data(state) ;--CAN CHANGE STATE. 
case state is 
when retr ! nlst => 


‘parameter := get_portnum(); 
if parameter = "" then 
state := quit; 
else 
state := port; 
send _cmd(state,parameter) ; 
end if; 
when abor => null; 
when others => state := abor; 


@put("in process_reply.Bad state."); 
end case; 
when 250 => get data(state) ; 
case state is 


when retr ! nlst => state := noop; 
send ema(state,"") ; 
when abor => null; 
when others => state := abor; 
@put("in process reply.Bad state.") ; 
end case; 
when 425 ! 426 => 
parameter := get _portnum() ; 
if parameter = "" then 
state := quit; 
else 
state := port; 
send cmd(state, parameter) ; 
end if; 
wiiehie4 5 Oe ued! SOOM SO! 550 => 
state := noop; 
Sencmema( State... 5, 
when others => null; 


end case; 
--END WHEN 'RETR'. 


when stor => 
case reply is 
When 125 1 150°=> send data(state) ; 
if state = stor then 


Zoos 


state := noop; 
send cmd(Stace sam 
end if; 
when 221 ! 421 => state := abor; 
when 226 => 


parameter := get _portnum(); 
if parameter = "" then 
state := quit; 
else 
state := port; 
send _cmd(state,parameter) ; 
end if; 
when 250 => state := noop; 
send end (SiGatc uae 
when 425!426 => 
parameter := get _portnum(); 
if parameter = "" then 
state := quit; 
else 
state := port; 
send _cmd(state, parameter) ; 
end if; 


when 450!451!452!500!501 => state 


send cmd(state,""); 
when 532 => 


put ("ENTER YOUR ACCOUNT NUMBER: 


parameter := get _line(); 
state := acct; 

send _cmd(state,parameter) ; 
if not (state = abor) then 


state := stor; 
end if; 
when 552 ! 553 => state := noop; 
send cmd(state,"") ; 


when others => null; 
end case; 
--END WHEN 'STOR'. 


when user => 
case reply is 
when 230 => 


parameter := get _portnum(); 
if parameter = "" then 

state := quit; 
else 

state := port; 

send _cmd(state,parameter) ; 
end if; 

when 331 => 

parameter := get_password(); 
state := pass; 


send_cmd(state,parameter) ; 
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when 332 => 
PUuE("ENTER YOUR ACCOUNT NUMBER: 


parameter := get _line(); 
state := acct; 
send _cmd(state,parameter) ; 
when 421 => state := abor;. 
when 500!501 =>null;--CANNOT SEND BAD USER CMD. 
when 530 =>parameter := get_parameter(user) ; 
if parameter = "" then 
state := abor; 
else 
state := user; 
send_cmd(state,parameter) ; 
oman. t ; - 


when othérs => null; 
end case; 
--END WHEN USER. 


when others => @put("bad state in process reply"); 


state := noop; 
send cmd(state,"") ; 
end case; 
end process reply; 


end libl;: 


Zoe 


with funcs, asmlib, 1ibl, typpkg, bit, io, strlib) genus 
procedure ftp is 

--AUTHOR: ALEC YASINSAC APRIL 1986 
~-CONFIGURATION: THIS PROGRAM IS WRITTEN TO RUN ON A Z-100 
-- OPERATING UNDER Z-DOS. 

--DESCRIPTION: THIS PROCEDURE DRIVES THE REMOTE FILE 

-- TRANSFER PROCESS ON THE NPS AEGIS LOCAL AREA NEWORK. 
-- THE USER IS PROMPTED TO SELECT HIS DESIRED DESTINATION 
-~- AND AN FTP COMMAND CONNECTION IS ESTABLISHED. THE 

-- PROCESS THEN BECOMES A CYCLE OF SENDING COMMANDS AND 
-- PROCESSING REPLIES. THE CYCLE ENDS WHEN THE USER 

-- ENTERS QUIT AND-THE QUIT COMMAND IS SENT. 


use asmlib, funcs, libl, bit, typpkg, io, strlib, Geum 
ip: array (1..4) of integer; 

bYES: array (1..4)—OLP Oye, 

auxfile, host: file; 

byt, org _ocwl: byte; 

Opt. 3 cma typ, 

cnt_exit: BOOLEAN; 

reply, Walt, ctr, t€st <#integer:- 

parameter, portnum: string; 

dataline: byte array; =--512 bytes. 
more replys, stopit: boolean; 


begin -~BEGIN PROCEDURE FTP. 
inport(ocwl_reg,org ocwl); 
outport(ocwl reg,ocwl) ; 
clrscreen; 
CUEDOME (Aleman prt ec Pe jr, 
put ("WELCOME TO THE MULTIUSER SYTSTEMS a, 
put("FILE TRANSFER PROCESS (FTP)."); 
new_line; 
open (hose, hosts. fl"! read only), 
if (ioresult = 255) then 
close(host) ; 
put("FILE HOSTS.FIL DOES NOT EXIST.) GeNEWeEriiey 
else 
close (host) ; 
open(auxfile,"aux",read write) ; 
get _addr(ip(1),1p(2) 5 4pls) eae 
~-HAVE THE USER SELECT THE VEvVerte sore. 


stopit := true; 
for. 1 -1neier. 4 eep 
bvts (2) 2= byte tip tia 
if ip(i) /= 0 then 
stopit := false; 
end if; 
end loop; 


if not stopit then 


268 


@new line; put("address = "); 
(nomen |..28loop DUE(ID(1)); put("");end loop; 
pet he oR NUmANID RECEIVE CODE FIP BEFORE PROCEEDING. 
put ("ATTEMPTING CONNECTION WITH CONCENTRATOR") ; 
write (auxfile,code ftp); 
wait := 0; 
loop -- WAIT FOR CHARACTER FROM 8612. 
Pipore(duxustaeuplt, byte); 
if tstbit (INTEGER (byt) ,RxRdy) THEN 
inporetaux datas pre ,bytc) ; 
case byt is 
when code ftp => clrscreen; 


Buc (@erying...'')> new line; 
exit; 

when code cls => write(auxfile,code ftp); 
@put ("received code cls"); new_line; 


when others => write(auxfile,code cls); 
@put("got byte other than code ftp"); 
@new_ line; 

end case; 


else 
if checkterm() then --CHECK FOR *}. 


write (auxfile,code cls); 
return; 
end if; 
walt := wait + 1; 
1f wait > 32000 then 
@put("time-wait") ;new_line; 


wait := 0; 
write(auxfile,code ftp); 
end if; 
end if; 
end loop; 
Leep 
Sera .— 47 


send trns(byts'address,aux data prt,ctr); 

exit when ctr = 0; 

if checkterm() then 
write(auxfile,code cls) ; 


mete; 
end if; 
end loop; 
if not stopit then 
Opcet— nuk: 
loop --MAIN LOOP FOR PROCESSING FTP REQUESTS. 
Ger :— OF 


get _dataline(dataline, ctr); 
case dataline(1) is 
when code abort => 
pie eet ERMENALTED BY REMOTE HOST.") ; 
if is open(typpkg.locfile) then 
close (typpkg.locfile) ; 
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end if; 
exic; 
when code cls => 
if opt = quit then --ONLY SEND QUIT ONCE. 
exit; 
else 
Opt s=Feu1t ; 
send cmd Gee, jn, 
put ("FTP TERMINATED BY USER es. 
if is open(typpkg.locfile) then 
close(typpkg.locfile) ; 
end if; new_line; 
end ih, 
when code data => --WILL NOT SEND FTP CMD. 
if is open(typpkg.locfile) then 
for j3 in 2..ctr log. 
write(locfile,dataline(j)); 
@prntdata(dataline(j)); 
-~-LOCFILE IS OPENED” IN DUSER CETTE. 
-=<WHEN THE RETR CGMeighiDpeisecllh 
end loop; 
else -~-DISPLAY TO SCREEN 
fOr j..1n .2. .ctr locr 
prntdata(dataline(j)); 
end loop; new_line; 
end if; 
when code reply =>--WILL SEND AN FTP CMD. 
make reply(dataline, ctr, reply, parameter) ; 
process reply(reply, parameter, opt); 
when code null => --NOTHING FROM REMOTE HOST. 


case opt is --BOTH ENDS WAITING. 
when acct => 
parameter := get pardmeter (accu r 


send_cmd(opt, parameter) ; 
when cwd ! dele ! help ! noop => 
user options(opt) ; 


when pass => parameter := get_password(); 
send_cmd(opt, parameter) ; 

when port => null; -=KEEP WADTEING: 

when quit => opt := abor; 


when retr ! stor => 
put ("REQUEST N@@ PROGESSED. on 
user options(opt) ; 

when user => parameter := get_username(); 
send cmd(opt,parameter) ; 

when others => user _options(opt) ; 

end case; 
when others => null; 


end case; 
exit when (opt = abor); 
end loo, --ENDS MAIN PROCESSING LOOP. 
end if; --ENDS INNER IF NOT SfoOrie 
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write (auxfile,code cls); 


outport(aux_cmd_prt,dtr); --WILL CAUSE CONCENTRATOR 
--TO TERMINATE ANY TRANSIENT PROCESSES. 
ema lt; =—ENe Ste NOT STOPIT. 
end if; oo SOS ere TORESULT = 255. 
Poa ftp; : , 


.pa 
BATCH FILE IN COMPILATION ORDER 


The following is the contents of the batch (.bat or .sub) 
file used to compile the preceeding programs. 


del a:typpkg.sym 
del az:asmlib.sym 
del a: funcs.sym 
del a:libl.sym 
del a:get_ip.sym 
del a:asmlib.jrl 
Set asget ip.jrl 
del a:funcs.jrl 
Gel a:libl.jrl 
del a:ftp.jrl 
@er a: ftp.com 


Janus a:typpkg.spc 
jJanus a:asmlib.spc 
Janus a:funcs.spc : 
janus a:libl.spc 
Janus a:get_ip.spc 
jJasm86 a:asmlib 
Janus a:get_ip/w 
Janus a:funcs/w 
jJanus a:libl/w 
jJanus a:ftp/w 
fank a:ftp 
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LISTING CE. 


PACKAGE global is 


APPENDIX 2 


100 LOCAL PROGRAMS 


aseaimut : CONSTANT BYTE := BYTE. 
asciilbs : CONSTANT BYTE := BYTE(16#23#) ; 
ascliliasterisk: CONSTANT BYTE := BYTE(16#2A#) ; 
ascliiperiod : CONSTANT BYTE := BYTE(16#2E#) ; 
asciicomma : CONSTANT BYTE := BYTE(16#2C#) ; 
asciiat : CONSTANT BYTE := BYTE(16#40#); 
asciicolon : CONSTANT BYTE := BYTE(16#3A}) ; 
asciiBS : CONSTANT BYTE := BYTE(16#08#); 

asciiUS : CONSTANT BYTE := BYTE(16#1F#) ; 
asciiunderln : CONSTANT BYTE := BYTE(16#60#) ; 
asciiFF : CONSTANT BYTE := BYTE(16#0C#) ; 

asciiCR : CONSTANT BYTE := BYTE(16#0D#) ; 

asciiLF : CONSTANT BYTE := BYTE(16#0A#); . 
asciicntlR : CONSTANT BYTE := BYTE(16#12#) ; 
asciicntlo : CONSTANT BYTE := BYTE(16#11%) ; 
asciibell : CONSTANT BYTE := BYTE(16#07#) ; 
asciispace : CONSTANT BYTE := BYTE(16#20#) ; 
asciiquest : CONSTANT BYTE := BYTE(16#3F#) ; 
asciicntlZ : CONSTANT BYTE := BYTE(16#1A#); 
asc1izero : CONSTANT BYTE := BYTE(16#30#) ; 
asciinine : CONSTANT BYTE := BYTE(16#39¢) ; 
ascliA : CONSTANT BYTE := BYTE(16¢4a5)— 

ascii_a : CONSTANT BYTE := BYTE(16#61#); 

asciiB : CONSTANT BYTE := BYTE(16#42#); 

ascii b : CONSTANT BYTE := BYTE(16#62) ; 

asc1iC : CONSTANT BYTE := BYTE(1G7aea 

ascll c : CONSTANT BYTE := BYTE( 1646s. 

asciiD : CONSTANT BYTE := BYTE(16#44#); 

ascii d : CONSTANT BYTE := BYTE(16#64#) ; 

asciiE : CONSTANT BYTE := BYTE(16#45#) ; 

asciiF : CONSTANT BYTE := BYTE(16#46#) ; 

acelin ; CONSTANT BYTE ;= BYTE (1646675 

asciiG : CONSTANT BYTE := BYTE(16#47#); 

ascii _g : CONSTANT BYTE := BYTE(16#67#); 

ale cual CONSTANT BYTE := BYTE(16#49#); 

ascii i : CONSTANT BYTE := BYTE(16#69#) ; 

asciiL : CONSTANT BYTE := BYTE(16#4C#) ; 

ascii_l : CONSTANT BYTE := BYTE(16#6C#) ; 

asciiM : CONSTANT BYTE := BYTE(16#4D#); 

asciil_m : CONSTANT BYTE := BYTE(16#6D#) ; 

asciiN CONSTANT BYTE := BYTE(16#4E#) ; 


Zee 


ascii n : CONSTANT BYTE := 
asci1lO : CONSTANT BYTE := 
ascliP : CONSTANT BYTE := 
ascii _p : CONSTANT BYTE := 
asciiQ : CONSTANT BYTE := 
fscii q : CONSTANT BYTE := 
asciiR : CONSTANT BYTE ;:= 
ascii _r : CONSTANT BYTE := 
asciiS : CONSTANT BYTE := 
ascii_s : CONSTANT BYTE := 
BociliT : CONSTANT BYTE := 
ascii _t : CONSTANT BYTE := 
asciiU : CONSTANT BYTE := 
asciiV : CONSTANT BYTE := 
ascii_v : CONSTANT BYTE := 
asciiW : CONSTANT BYTE := 
ascii w : CONSTANT BYTE := 
asciixX : CONSTANT BYTE := 
asciiZ : CONSTANT BYTE := 
ascii _z : CONSTANT BYTE := 
asciiDEL : CONSTANT 
term : CONSTANT 
ready ;: CONSTANT BYTE := 
talk 2 CONSTANT 
getfile : CONSTANT BYTE := 
sendfile : CONSTANT 
sending : CONSTANT BYTE := 
receiving : CONSTANT 
repeatsnd >: CONSTANT 
unable : CONSTANT BYTE := 
filedat : CONSTANT BYTE := 
close : CONSTANT BYTE := 
whothere : CONSTANT 
badtrns : CONSTANT BYTE := 
acklast : CONSTANT BYTE := 
ImHere : CONSTANT BYTE := 
EOF : CONSTANT 
fees for ack : CONSTANT 
eat ; CONSTANT 
Beer chg : CONSTANT BYTE := 
netstat : CONSTANT BYTE := 
preant : CONSTANT BYTE := 
aqar t7 CONSTANT 
Gar data : CONSTANT 
info : CONSTANT 
Log : CONSTANT 
broadcast : CONSTANT 
hdr_len : CONSTANT INTEGER 
thrshld : CONSTANT INTEGER 
ocwl reg ; constant 


BYTE (16#6E#) 
BYTE (16#4F#) 
BYTE (16#50#) 
BYTE (16#70#) 
BYTE (16#51#) 
BYTE (16#71#) 
BYTE (16#52#) 
BYTE (16#72#) 
BYTE (16#53#) 
BYTE (16#73#) 
BYTE (16#54#) 
BYTE (16#74#) 
brane 164554 ) 
BYTE (16#56#) 
BYTE (16#76#) 
BYTE (16#57#) 
BYTE (16#77#) 
BYTE (16#58#) 
BYTE (16#5A#) 
BYTE (16#7A#) ; 
BYTE := 
BYTE := 
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BYTE(0); 
BYTE := 
asciiG; 
BYTE := asciiS; 
ascil s; 
BYTE. <= 
BYTE := 
asciiU; 
aSCiiF; 
ascilic; 
BYTE ;:= 
asciiB; 
ascliilA; 
aserpuns 
BYTE := ascilE; 
BYTE := ascii w; 
BYLE °*=sase110- 
asciiP; 
asciiN; 
aSeil p; 
BYTE := asciiD; 
BYTE := ascii d; 
BYTE := asciil; 
[= ace rig: 


ascliiT; 


ascii ¥; 
asciiR; 


asciiw; 


By oe 


BYTE (16#7F# 
BYTE (16#1D# 


= BYTE(16#FF#); 


= (16#00f34#); 


ocwl Conseane 
code cls constant 
code abore constant 
code status constant 
code arlog constant 
code local constant 
code Istn constant 
Geqewestay COnstanme 
code reqPre constant 
Goode URES constant 
code Moraine constant 


code endprint: 


byte 
byte 
byte 
byte 
byee =: 
byte ;: 
byte 
byte 
byte 
byte 
byte 


constant byte := byte(16#£44) ; 


byte (16#aa#) ; 
byte (16#c3#) ; 
byte (16#c1#) ; 
byte (16#d3#) ; 
byte (16#d2#) ; 
byte (16#CC#) ; 
byte(16#CF#) ; 
byge (Or 

byte (16#F0#); 
byte (16#25#) ; 
byte (16#da4#) ; 
--t 
s= (16#ec#) ; 

:= (16#ed#) ; 
:= (l16¢#ef#) ; 


= byte (16#25#) ; 


if 


= byte (16#27#) ; 


100; 
EXON] 


30; 

ioe 

MMM Oe Seen le, 
BY aise 

BYTE; 


BYEE, 
Bi eo 


BYTE, 


dat constant integer 
Stat constant integer 
cmd constant integer 
aod Ee constant byte 
DSR constant integer 
DTR ; constant byte 
RxRdy constant integer := 1; 
rs232 delay constant integer 
num prts : constant integer 
hHulleve constant byte := byte(0); 
max mem blk CONSTANT INTEGER 
NUN SEES CONSTANT INTEGER 
head : CONSTANT INTEGER 
TYPE arrays is ARRAY(1..8) of 
TYPE array3 is ARRAY(1..3) of 
TYPE array2 1s; ARRAY (li. ron 
TYPE array4 is ARRAY(1..4) of 
datstrg array (12.512) of toycer, 
TYPE array5l12 1S ARRAY(1], .512jeon 
TYPE fob REC is RECORD 

drv BYTE 

name arGays; 

ext = Oiaisayeor, 

extne; INTEGER; 

Rsize: INTEGER; 

Fsize: array4; 

date arraniz: 

time array2; 

resrvd: array8; 

rec ByYaa, 

rndm array4; 

END RECORD; 
DYPE cb URee is RECORD 

state BYLE 

dest BY LE 

dest chg BY EE 

strgsSz BYTE; 

name STRING; 
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ark TUN TEGER; 


fcbA ech ehucy 
fcbB ech REC, 
sndQ s INTEGER; 
Bey © >; INTEGER; 
He TL IL) > INTEGER; 
namQ . > INTEGER; 
search : BOOLEAN; 
fileopen : BOOLEAN; 
endFile : BOOLEAN; 
cnt_remain > array4; 
ace ; BOOLEAN; 
Jame cnt 7 LEGER. 
wait : BOOLEAN; 
END RECORD; 
TYPE buffer is RECORD 
dst ee er, 
src 4 Salers 
typ ae ; 
6ksum. BV, 
len cemetietael Vy 2a; 
data sousieay> 1 2 ; 
frm_ len: INTEGER; 
END RECORD; — 
Beant 1 PCB ; £Cb REC; 
mem_manag_tbl: ARRAY(1..max_mem_blk) OF INTEGER; 
used blk >: INTEGER; 
trnsQ ; INTEGER; 


myeadar : BYTE; 
Beceprte : BYTE; 
Poieprt + BYTE; 


\C)ag ws > SUNGEGER ; 

data > byte; 

per > integer; 

org _ocwl : byte; 

mem ;: ARRAY(1..max_mem_blk) OF buffer; 
lob > ARRAY(0..head) OF lcb REC; 
Peepent : INTEGER; 

cksum snt ; BYTE; 

bytcnt : INTEGER; 

Sel,cico : BOOLEAN; 

mech i: BYTE; 

free blk ; INTEGER; 


quit received: BOOLEAN; 
aaemtor prt chg: BYTE; 
bell _ on : BOOLEAN; 

mailbox : BOOLEAN; 

verbose : BOOLEAN; 

[intil i: BOOLEAN; 

gual : INTEGER; 
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found : BOOLEAN; 

runt2lO : INTEGER, 

estab 7 | BOOLEAN, 

logged _in ; BOOLEAN; 

printer : INTEGER; 

END global; 

with global; 

PACKAGE library is 

use global; 
PROCEDURE activate(prt : IN INTEGER) ; 
PROCEDURE deactivate(prt : IN INTEGER) ; 
PROCEDURE get_memory(blk : OUT INTEGER) ; 
FUNCTION arr to int(arr : IN array2) RETURN INTEGEEe 
PROCEDURE give _memory(blk : IN INTEGER) ; 
PROCEDURE put_in trnsQ(blk : IN INTEGER) ; 
FUNCTION inc_arr(arr : IN array2) RETURN array2; 
PROCEDURE prompt; 
PROCEDURE add _ to Q(blk : IN INTEGER); 

END dabrary 

WHER ble, uci asmilab, global; 


PACKAGE BODY library is 
use bit, ene) asmiabes global: 


_emeawamce Ge ea amet am ea ae Se ee Ee aE Eee awam Pewee ea aw es aE aE aE Ea ee eee eae ee eee ee ee ee eee ee ee ee ee a a a a 


PROCEDURE add _to Q(blk : IN INTEGER) is 


Der ; SINTECER; 
BEGIN 
Der t= ubilk; 
LOOP 
EXIT WHEN mem manag tbl(ptr) = 0; 
ptr := mem_manag_tbl(ptr) ; 
END LOOP? 
mem manag tbl(ptr) := blk; 


END add _to Q; 


PROCEDURE prompt is 


BEGIN 
NEW_LINE; 
IF prt = head THEN 
PUA alae. 
EESE 


2/6 


IONE jeiaete)) » 
BND IE 
PUT ('>"*) ; 
END prompt; 
PROCEDURE activate(prt : IN INTEGER) is 
BEGIN 
iEeaNOT Lebi(ipre)..ace THEN 
ep (pre). lank <= lebi(head) .link; 
leS(head).Jink=:= pre; 
Feptipee) ace .—) TRUE; 
END LF; 
END activate; 


PROCEDURE deactivate(prt : IN INTEGER) is 


ptr : INTEGER; 
BEGIN 
Pi wlemntone).ac.e THEN 
per e:— Dre, 
LOOP 


EXIT WHEN lcb(ptr).link = prt; 
per: = Lebtper)..1 ink; 


END LOOP; 
ieb( ptr) slink. <= leb(prt). link; 
Teb (pEe) act :;= FALSE; 


EBD F ? 
END deactivate; 
PROCEDURE get_memory(blk : OUT INTEGER) is 
BEGIN 


if free blk > 0 then 
blk := free blk; 
free blk := mem_manag_ tbl (blk); 


mem manag tbhl(blk) := 0; 
used blk := used bik + 1; 
else 
blk := 0; 
end if; 


END get_memory; 
BeienbON arr to int(arr : IN array2) RETURN INTEGER is 
eace: LNTEGER; 
BEGIN 
pere(int "ADDRESS, arr(2) ); 
poke(int'ADDRESS+1,arr(1)); 
RETURN int; 
miPearr to int; 
PROCEDURE give memory(blk : IN INTEGER) is 
Sid : INTEGER; 
BEGIN 
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old := free blk; 
free Dik sss, 
mem manag tbhl(blk) := old; 
used_blk := used _ blk —- 1; 
END give memory; 
PROCEDURE put in trnsQ(blk : IN INTEGER) is 
ptr : INTEGER; 
BEGIN 
mem(blk).frm_len := mem(b1kK).frm_len + hdr len; 
IF trnsQ = 0 THEN 
tCrns© ~— blk: 
ELSE 
add -COgCterEns® a; 
END ik; : 
END put_in trnsQ; 
FUNCTION inc arr(arr : IN array2) RETURN array2 is 
int : INTEGER; 
rsle = apray2,; 


BEGIN 
int: *-=sarr ete rmie( arim) 7 
Int {=e i 


rslt(l)es="hi Gin 
rslt(2)) <=. lotine yr: 
RETURN rslt? 

END. he wan, 


END library; 


pragma warning(OFF) ; 
pragma debug(OFF) ; 


with util, bit, io, strlib, library, @febal, asmiaisr 
PACKAGE BODY filexfer is 

use util, bit, 10, strlib, library, (o¢eca asia, 
aSC1liFF : CONSTANT BYTE := BYTE(16#0C#) ; 


PROCEDURE parse(blk : IN INTEGER; fcb ; IN OUT febeREe, 
eol : OUT BOOLEAN) is 


front,middle,rear ; INTEGER; 
done : BOOLEAN; 

BEGIN 

done := FALSE; 


outer: LOOP 
EXIT WHEN done; 


done := TRUE; 
EFOnt. 3—22e> 
eol := TRUE; 


IF mem(blk).data(front) = asciicomma THEN 
LrOne <=" LEChe teas, 


20.5 


END IF; 

LOOP --remove spaces, etc 
EXIT outer WHEN front > mem(blk).frm_len; 
EXIT WHEN mem(blk).data(front) > asciispace; 


hEOMEe s= EGON: + 1; 
END LOOP; 
meadle := front; 
LOOP 
EXIT WHEN middle > mem(blk).frm_len 
OR mem(blk).data(middle) = asciiperiod 
OR mem(blk).data(middle) = asciicomma; 
middle := middle + 1; 
END LOOP; ; 
rear := middle; 
LOOP 
EXIT WHEN rear > mem(bl1k).frm_len 
OR mem(blk).data(rear) = asciicomma; 
mears;— rear + 1; 
END LOOP; 
fear y BYTE (INERGER(currente dsk()') +1) ; --set drive 


IF mem(blk).data(front+1) = asciicolon THEN 
CASE mem(blk).data(front) is 
WHEN asciiA..asciiP => 


fob.drv := BYTE(INTEGER(mem(blk) .data(front) ) 
- INTEGER(asciiat)); 
Pheote s=— ErOnNG + 2; 

WHEN ascii a..ascii _p => 
EeD,Aby a — bY TGC UNETEGER(mem(bik).data(front) ) 
- INTEGER(ascii a)+1); 
PmOtems— ELOMG + 2; 

WHEN others => done := FALSE; 

BND CASE; 


END IF; 
im ftront = middle THEN 
ExT outer; 


END IF; 

LOOP --remove spaces 
EXIT WHEN mem(blk).data(front) > asciispace; 
Begiicas— £ront + 1; 

END LOOP; 

mer := 1; 

innerl: LOOP --make assign 


CASE mem(blk).data(front) is 
WHEN asciiA..asciiZ ! asciizero..asciinine ! 
asciiquest ! asciiunderln => 
fcb.name(ptr) := mem(blk).data(front) ; 


Bi IS, 


WHEN ascii _a..ascil Z => 
mem(b1lk) .data(front) := capital (mem(b1k) .data(fronu® 
fcocb.name(ptr) := mem(blk).data(front) ; 
WHEN ascilasterisk => 
inner3: LOOP 
EXIT innerl WHEN ptr > 8; 
feb.name(ptr) := asciiquest; 
DUr := pebeie, 
END LOOP inner3; 
WHEN asciiBS => 
TF ptr > lane 
Dtr 3 = pti oee. 
END iE; 
WHEN others => 
IF mem(blk).data(front) >= asciispace THEN 
done := FALSE; 
EXIT Minneri-: 
END IF; 
END CASE; 
Der =. Per al; 
EXIT innerl WHEN ptr > 8; 
EYONE f= fbeme, i, 
IF front = middle THEN 
LOOP 
EXIT innerl WHEN ptr > 8; 
fcb.name(ptr) := asciispace; 
DEE! c= Peet lL, 
END LOOP; 
END IF; 
END LOOP innerl; 


IF mem(blk).data(middle) = asciiperiod THEN 
middle := middle + 1; 
END IF; 
LOOP --remove spaces 
EXIT WHEN mem(blk).data(middle) > ascliispace 
OR middle >= rear; 


middle := middle + 1; 
END LOOP; 
DEY f— 11, 
IF middle >= rear THEN 
LOOP 
EXIT WHEN ptr > 3; 
fcb.ext(ptr) := asclispace; 
Dicer s— pert 1; 
END LOOP; 
ELSE 
inner2: LOOP --make assign 
CASE mem(blk).data(middle) is 
WHEN asciliA..asciiZ ! asciizero..asciinine ! 
ascliquest ! asciiunderln => 
fcob.ext(ptr) := mem(blk) .data(middle) ; 
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WHEN ascii_a..ascii_z => 
mem(blk).data(middle) := 


capital (mem(blk) .data(middle) ); 
fcb.ext(ptr) := mem(blk).data(middle) ; 


WHEN asScliiasterisk => 
inner4: LOOP 
EXIT inner2 WHEN ptr > 3; 


feb.ext(ptr) := asciiquest; 


DER 2="per +tal; 
END LOOP inner4; 
WHEN asciiBS => 
EF per >a THEN 
Dice sa Diek. =i 27 
PND LE; 
WHEN others => 


IF mem(blk).data(middle) >= asciispace THEN 


done := FALSE; 
EXIT inner?2; 
END IF; 


END CASE; 
per := ptr + 1; 
EXIT inner2*™wHEN ptr > 3; 
middle := middle + 1; 
IF middle = rear THEN 
LOOP 
EXIT inner2 WHEN ptr > 3; 
fcb.ext(ptr) := asciispace; 
Dine —nDeEr +L; 
END LOOP; 
END IF; 
END LOOP inner2; 
END IF; 
FOR 1 IN rear..mem(b1k).frm_len LOOP 
mem(blk).data(it+l-rear) := mem(blk) 
END LOOP; 
mem(blk).frm_len := mem(b1lk).frm_len - 
BOL := FALSE; 
Premem(bik).frm len < 0 THEN 
mem(blk).frm_ len := 0; 
BND IF; 
END LOOP outer; 
END parse; 


PROCEDURE create FCB(blk : IN INTEGER) is 
prt ; INTEGER; 


rslt ; ENTEGER; 
BEGIN 
prt := INTEGER(mem(blk).src); 


~-data(i); 


rear + 1; 


IF lcb(prt).state = sending OR lcb(prt).state = 


receiving THEN 


PUT("cannot open another file for this destination") ; 


mem(blkK).dst := mem(blk).src; 
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mem(b1lk).srce := sre prt; 


mem(blk).typ unable; 
mem(blk).cksum := BYTE(O); 
mem(blk).len(1) := BYTE(0); . 
mem(blK).len(2) := BYTE(0O); 
mem(b1lk).cksum := cksum(mem(blk) 'ADDRESS,hdr_len) ; 
put in trnso(bln. 
PLSE 


IF verbose THEN 
PUT ("receiving stale ") 5 
FOR 1 IN 1..8 e@OoP 


lcb(prt) .FCBb.name(1i) := mem(blk).data(1i); 
prntdata(lcb(prt) .FCBb.name(1i)); 
END LOOP; 
PUL te eee 
FOR 1 IN 1..3 LOOP 
leb(prt).FCBb.ext(i) := mem(blk).data(its8) ; 
prntdata(lcb(prt) . FCBbvexeane 
END LOOP; 
END IF; 
léb (pre) -PCab.adrv ss: — 
BYTE (INTEGER(current_dsk())+1);--set drive 


create file(lcb(prt) .FCBb'ADDRESS,rs1lt) ; 
LF rsit. = OF THEN 


leb(prt).state := receiving; 
leb(prt) .fileopen <= TRUE; 
lebipret) .FCBb extent. :— 0; 
léb(prt).FCBb.rec :— BYTE(OM, 
lebipre);.linesene -2— 07 


IF mem(blk).dst /= broadcast THEN 


mem(blk).dst := mem(blK).src; 
mem( bik) .sre °—= srecrprE, 
mem(blk).typ := acklast; 
mem(blk).cksum := BYTE(0O); 
mem(blk).len(1) := BYTE(0O); 
mem(b1lK).len(2) :="BYGEo @, 


mem(blk) .cksum:=cksum(mem(b1lk) 'ADDRESS,hdr_ len) ; 
Dube in tenso (ork): 

Risk 
give memory(blk) ; 

END iF; 

|e Bsn) Ss 
PUT (" OUT OF DISK SPACE 
mem(blk).dst := mem(blk).src; 


mem(blkK).srce 2:= SFC pre; 
mem(blk).typ := unable; 
mem(blk).cKsum := BYTE(0O); 
mem(blk).len(1) := BYTE(0); 
mem(blk).len(2) := BYTE(0O); 


mem(blkK).cksum := 
put In Ernseipligg 
END IE: 


cksum(mem(b1lk) 'ADDRESS,hdr_len) ; 
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END IF; 
END create FCB; 


PROCEDURE receive file(blk IN INTEGER) is 


joan INTEGER; 
pier INTEGER; 
succ BOOLEAN ; 
BEGIN 
prt := INTEGER(mem(blk).src); 


me icb(prt).fileopen AND lcb(prt).state = 
setDMA (mem(b1k).data(1) 'ADDRESS) ; 
Pel (Ort).FCBb.Rsize ;:= 512; 
IF mem(blk).cksum = BYTE(0) THEN See SUM OK 
write file(ltb(prt) .FCBb'ADDRESS,succ) ; 
IF verbose THEN 
PUT ( HG) : 
eMieweyewlinesecileri—s!eb(prt) line cnt + 1; 
lee leb(eme) lane che = 80 THEN 
NEW LINE; 
licbiGore). line cnt := 
END eh 
PND IE; 
ELSE 
IF verbose THEN 
PUT ("B") ; 
VeRi@aiat li nomenum—mrebqmice) line cnt + 1; 
itis GikejolQepeies iF line_ Gn =_c0 THEN 
NEW LINE; 
Feb (pre). line. cnts:= 
ENDs IF; 
END LE, 
succ := FALSE; 
END IF; 
IF mem(blk).dst /= 
IF succ THEN 


receiving THEN 


0; 


O; 


broadcast THEN 


mem(blk).dst := mem(b1lk).src; 

mem(blk).srce := sre _prt; 

mem(blk).typ := acklast; 

mem(b1k) .cksum J—e By ns 0) ; 

memiolk). len?) ;= BYTE(O) ; 

mem(blk).len(2) := BYTE(0O); 

mem(blk). cksum:=cksum(mem(blk) 'ADDRESS,hdr_ len); 
PUN censO (blk); 

Blog : 
mem(blk).dst := mem(blK).src; 
nemo) src = Src prt; 
mem(blk).typ := badtrns; 
mem(blk).cksum := BYTE(0O); 
mem(blk).len(1) := BYTE(0); 
mem(blk).len(2) := BYTE(0O); 


mem(bik) .cksum: 


=Cksum(mem(blk) 'ADDRESS,hdr len); 
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puE in Ernseiols); 


END IF? 
Biot 

give memory (blk) ; 
BND 1, 


ELSE 
IF mem(blk).dst /= broadcast THEN 
mem(blk).dst mem(blk).src; 


mem(blk).sre := sre prt; 
mem(b1lk).typ := unable; 
mem(blk).cksum := BYTE(0O); 
mem(blk).len(1) := BYTE(0O); 
mem(blk).len(2) := BYTE(0O); 
mem(blk).cksum := cksum(mem(b1lk) 'ADDRESS,hdr_ len); 
put_in trnsQ(blk) ; 

ELSE 
give memory (blk) ; 

END Ds; 

END IF; 


END receive file; 


PROCEDURE close FCB(blk : IN INTEGER) is 


prt : INTEGER; 
rslt ; INTEGER; 
BEGIN 
prt := INTEGER(mem(blk).src) ; 


IF lcb(prt).state /= receiving THEN 
mem(blk).dst mem(blkK).src; 


mem(b1k).sre := sre prt; 
mem(blk).typ := unable; 
mem(blk).cksum := BYTE(0) ;? 
mem(b1lk).len(1) := BYTE(0); 
mem(blk).len(2) := BYTE(0); 
mem(blk).cksum := cksum(mem(blk) 'ADDRESS,hdr_ len); 
put in trnsQ(blk); 
Ja Sy a 


close file(lcb(prt) .FCBb'ADDRESS) ; 

lcb(prt).state := ready; 

lcb(prt).fileopen := FALSE; 

IF mem(blk).dst /= broadcast THEN 
mem(blk).dst mem(blkK).src; 
mem(blk).srce SEC PRG; 
mem(blk).typ := acklast; 
mem(blk).cksum := BYTE(0); 
mem(blk).len(1) := BYTE(0); 
mem(blk).len(2) := BYTE(0O); 
mem(blk).cksum := cksum(mem(blk) 'ADDRESS,hdr_len); 
puc the crise (oles 

ELSE 
give memory (blk) ; 

ENDO aeE, 

END TE; 
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END close FCB; 


PROCEDURE send file(prt : IN INTEGER) is 
blk ; MENTEGER; 


found : BOOLEAN; 
EOL : BOOLEAN; 
es it : INTEGER; 
BEGIN 


Meelco(prt).namO = 0 THEN 
lcb(prt).state := ready; 
RETURN ; 
BND IF; - 
IF lcb(prt).search’ THEN 
IF lcb(prt).fileopen THEN 
IF lcb(prt).endFile THEN 
close file(lcb(prt) .FCBb'ADDRESS) ; 
IF verbose THEN 
eb (pre) sine ent :— 0; 
prompt; 
END IF; 
get_ memory (blk); 
mem(blk).dst := lcb(prt).dest; 
mem(blk).sre := srce_prt; 
nNem(olky.typ := global.EOF; 
mem(blk).cksum := BYTE(0); 


mem(blk).len(1) := BYTE(0); 
mem(blk).len(2) := BYTE(2); 
mem(blk) .data(1) ASC1iCR; 


mem(blk).data(2) := asciliFF; 
mem(blk).frm_len := hdr_len + 2; 
mem(blk).cksum := 

cKsum(mem(b1lk) 'ADDRESS,mem(bl1k) 
Febtoage yt r lO y= blk; 


lcb(prt).state := repeatsnd; 
lcb(prt).fileopen := FALSE; 

Rio 
get memory (blk) ; 
mem(blk).frm len := 512; 
setDMA(mem(blk).data(1) 'ADDRESS) ; 
Reb prt) GBbeksize (= 512+ 


read file(lcb(prt) .FCBb'ADDRESS, rslt) 
CASE rslt is 

WHEN O => null; 

WHEN 1 => 


lceb(prt).endfile := TRUE; 
WHEN 2 => null; 
WHEN 3 => 
teb(pre.endtile <= TRUE; 
END’ CASE ; | 


IF rslt = 0 OR rslt = 3 THEN 


285 


-frm_ len); 


e 
f 


mem(blk).dst := lcb(prt) .dest; 


mem(bIK).Sre™>= Sreapme, 

mem(blk).typ := filedat; 

mem(blk).cksum := BYTE(0); 

mem(blk).len(1) := hi(mem(b1k).frm_len); 
mem(blk).len(2) := lo(mem(blk).frm_len); 
mem(b1k) .frm_len:=mem(b1lk).frm_lent+hdr_ len; 
mem(b1lkK).cksum := cksum(mem(b1kK) 'ADDRESS, 


mem(b1lk).frm_len); 
LEbDipre eral: 7b a 
lcb(prt).state := repeatsnd; 
ELSE 
give memory(blk) ; 
END IF; 
END IF; 
ELSE 
SetDMA(lcb(prt) .FCBb'ADDRESS) ; 
search nxt(lcb(prt) .FCBa ABDRESS, founc:, 
LP Sf£Ound 2 boHEN 
IF verbose THEN 
NEW LINE; 
PUT (“sending tives); 
FOR ASIN 12.3) beer 
prntdata(lcb(prt) .FCBb.name(i)); 
END LOOP; 
PUT Gi); 
FOR 1 IN’ Po as2 oor 
prntdata(lcb(prt) . FCBBR ext (1) ); 


END LOOP; 

NEW LINE; 
BND ak: 
open file(lcb(prt) .FCBb'ADDRESS, found) ; 
leb(prt) .FCBb- Rsize := 95927 
lcb{(prt) .FCBb. extnts; —son 
leb(prt).FCBb. rec {= 95yEE (0), 
lcb(prt).fileopen := TRUE; 
leb(prt).cnt remain := 2eb (eet) {Febb. Foaze, 
lcb(prt).endfile := FALSE; 


get memory(blk); 
mem(blk).dst := leb(prtj@a@ese; 


mem(b1k).srce := sre prt; 
mem(blk).typ := sendfile; 
mem(blk).cksum := BYTE(0); 
mem(blk).len(1) := BYTE(0O); 
mem(blk).len(2) := BYTE(35); 
FOR 1 EN. 1...8 LOGE 
mem(blk).data(i) := lcb(prt).FCBb.name(1); 
END LOOP; 
FOR 1 IN 1..3 LOOP 
mem(blk).data(it+8) := lcb(prt).FCBb.ext(1i); 
END LOOP; 
mem(b1k).data(12) := asciiLF; 
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mem(blk).data(13) := asciicCR; 
FOR 1 IN 1..20 LOOP 
IF i <= LENGTH(lcb(head).name) THEN 
mem(blk).data(13+1) := 
conv_byt(lcb(head) .name(1)) ; 


ELSE 
mem(blk).data(13+i) := asciispace; 
END IF; 
END LOOP; 
mem(blk).data(34) := asciiLF; 
mem(blk).data(35) := asciliFF; 


mem(blk).frm_len := 35 + hdr_len; 
mem(blk).cksum := 

cksum(mem(b1lk) 'ADDRESS,mem(b1k) .frm_len) ; 
lige} off (eve So) rp as 110) <a oe 


lcb(prt).state := repeatsnd; 
HLSE 
lcb(prt).search := FALSE; 
END TIE; 
END IF; 


ELSE 


Parse | VCD Ome eenanme, cb (prt)<FrCBa, EOL) ; 
IF EOL THEN 


lcb(prt).state := ready; 
give memory(lcb(prt) .namQ) ; 
Leb (Smee nanos = a0 ; 


IF prt = printer THEN 
outport(dat,code endprint) ; 
printer := 99; 
END IF; 
ELSE 
setDMA(lcb(prt) .FCBb'ADDRESS) ; 
Seamemeumocre( CO (prt) shea ‘ADDRESS , Found) ; 
Pps esound THEN 
IF verbose THEN 
NEW LINE; 
PUMelscending file"); 
FOR 1IN 1..8 LOOP 
prntdata(lcb(prt) .FCBb.name(i)); 
END LOOP; 
eC fan ee WE : 
FOR Is IN 1.3 LOOP 
Premcecdaca (eb ( prt). FCBbD.ext(i)); 


END: LOOP; 

NEW LINE; 
END oiY; 
lcb(prt).search := TRUE; 
open file(lcb(prt) .FCBb'ADDRESS, found) ; 
iKeiQeme).cne remain := lcb(prt) .FCBb.Fsize; 
lcb(prt).fileopen := TRUE; 
leb(prt).endfile := FALSE; 


get memory (blk) ; 
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mem(blk).dst lcob( pre) Ges, 


mem(blk).sre := sre prt; 
mem(blk).typ := sendfile; 
mem(blk).cksum := BYTE(0); 
mem(blk).len(1) := BYTE(0); 
mem(blk).len(2) := BYTE(35) ;- 
FOR 1 IN 1..8 LOOP 
mem(blk).data(i) := lcb(prt).FCBb.name(i) ; 
END LOOP; 
FOR 1) EN... 3 ELOOP 
mem(blk).data(it+8) := Icb(prt) .FCBb. ext (aam 
ENDwEOOr -; 
mem(blk).data(12) := asciiLF; 
mem(blk).data(13) := asci1iCR; 


FOR 1 IN 1..20 LOOP 
IF 1 <= LENGTH(lcb(head).name) THEN 
mem(blk).data(13+1) := 
conv_byt(lcb(head) .name(1i)); 


ELSE 
mem(blk).data(13+i) := asciispace; 
END IF; 
END LOOP; 
mem(blk).data(34) := asciiLF; 
mem(blk).data(35) := ascilFF; 


mem(blk).firm_ len ‘= 35 + hdreten; 
mem(blk).cksum := 
cksum(mem(b1lk) 'ADDRESS,mem(b1lk).frm_ len); 
lcb( pret). £16 is —= babe: 
lcb(prt).state := repeatsnd; 
END?T iE; 
END? 
END IF; 


END send file; 


PROCEDURE send dir(prt : IN INTEGER) is 


blk : INTEGER; 
found ; BOOLEAN; 
BOn * BOOLEAN: 
DEL ; »- INTECER: 
EOtaL : INTEGER; 


line tot: INTEGER; 


BEGIN 
IF 1leb( pee name = Oy tae 


lcob(prt) .state eee vol 2 
RETURN; 

END IF; 

DEE. :=807, 

total :— 70; 

line tot := 0; 


blk := lebtorne) . paler 
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LOOP 


Ph  Lepipae).search THEN 


setDMA(lcb(prt) .FCBb'ADDRESS) ; 
search nxt(lcb(prt) .FCBa'ADDRESS, found) ; 
IF found THEN 
IF line tot = 0 THEN 
isi > — eos ft; 
mem(blkK).data(ptr) := 


BYE NEEGER( leb(pise) .FCBD.davy) + 64); 


END IF; 

Del .— Delete, 
mem(blk).data(ptr) := asciicolon; 
DE s— DEL +10, 
mem(blk).data(ptr) := asclispace; 


FOR 1 IN -1..8 LOOP 
pen s— per + 1; 


mem(blk).data(ptr) := lcb(prt).FCBb.name(1) ; 
END LOOP; 
DED es peck + lL; 
mem(blk).data(ptr) := ascilperiod; 


POR tN )...3. LOOP 
Clea = Goiew @ a; 
mem(blk).data(ptr) := lcb(prt).FCBb 
END LOOP; 
Peas DCr +; 
mem(b1lk).data(ptr) := asciispace; 
Mine@eeou .- line toe + 2; 
IF line tot = 4 THEN 
line tot := 0; 
ise 2 = Der + a; 
mem(blk).data(ptr) := asciiCR; 
pies: = str + 1; 
mem(blk).data(ptr) := asciiLF; 
END IF; 
terval s=—total + 1; 
ire oeale— 32° THEN 
mem(b1lk).dst 
mem(b1lk).sre SEC uDEG, 
mem(blk).typ olilie _(6lshiers\ 6 
mem(blk).cksum := BYTE(0O); 
Memoir. Len( 1) .2= hi(ptr) >: 
Mem (ok) .len(2) i:— Lotper) ; 
Ren( Dera Len s=> ptr + hdr len; 
mem(blk).cksum := 


lcb(prt).dest; 


mext(( 1) 


cksum(mem(b1lk) 'ADDRESS, ptrt+hdr_ len); 


PuUbweiae trnsO (blk) ; 
Reb (One wat lO: +=. 07% 
l,l 
END. LE ; 
ELSE 
lcb(prt).search := FALSE; 
END IF; 
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LM LpSS 
parse (lceb(prt) .namO, leb( pre) eeba re. a. 
IF EGER THEN 
lcb(prt).state := ready; 
give memory(lcb(prt) .namQ) ; 
IF perm /= O08 THEN. 


mem(blk).dst := lcb(prt).dest; 


mem(blk).srce := src prt; 
mem(blk).typ := dir data; 
mem(blk).cKsum := BYTE(0O) ; 


mem(blk).len(1) := Hueco 
mem(blk).len(2) := lo(ptr); 
mem(blk).frm_ len := ptr e+ har even, 
mem(blk).cksum := 
cksum(mem(blk) "ADDRESS ,ptr+hdr Tenge 
put_in_trnsQ(blk) ; 
Ea 
ELSE 
give memory (blk) ; 
EXT. 
END aE 
END IE 
setDMA(lcb(prt).FCBb'ADDRESS) ; 
search frst(lcb(prt) .FCBa *ADDNaes round), 
LF found: THEN ; 


lcb(prt).search := TRUE; 
IF line tot = 0 THEN 
DEE =: pers, 


mem(blk) .data(ptr) := 
BYTE (INTEGER(lcD (prt) .B@Bh diy) + 64s, 


END TEE ; 
DEE .=-pcr +. 1; 
mem(blk).data(ptr) := asciicolon; 


DEL (3= DEraie, 
mem(blk) .data(ptr) 
FOR 1. IN-1238 LOer 
Der 4= Per sts 
mem(blk).data(ptr) := lceb(prt).FCBb.name(1i) ; 
END LOOP; 
DEGTs= Dire aun, 
mem(blk).data(ptr) := ascliperiod; 
ROtee! I Nei eslOoer 
Del °2=2 Der ols, 
mem(blk).data(ptr) := lcb(prt).FCBb.ext(i); 
END LOOP; 
PCr := "ptr +a, 
mem(blk) .data(ptr) := asciispace; 
line tot := line tot + 1; 
IF line tot = 4 THEN 
line EOt := 70; 
DEY t= PCr ataeie, 
mem(blk).data(ptr) := asciiCR; 


ascilispace; 
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OC 1S eal eae Br 


mem(blk).data(ptr) := asciiLF; 

END IF; 

Cotal~:= total + 1; 

IF total = 32 THEN 
mem(blk).dst := lcb(prt).dest; 
mem(b1lk).sre := src prt; 
mem(blk).typ := dir data; 
mem(blk).cksum := BYTE(0O); 
mem(blk).len(1) := hi(ptr); 
mem(blk).len(2) := lo(ptr); 
MenMouime faneeen n. —) Diclemeene Len; 


mem(blk).cksum := 
cksum(mem(b1lk) 'ADDRESS,ptr+hdr_ len) ; 
Due 1t) ErnsO(b1kK); 
Eon, 
END IF; 
ENDIF; 
END LE 
END LOOP; 
END send dir; 


PROCEDURE information(prt : IN INTEGER) is 


blk pe LNEEGER; 
Eeslt fe NPEGER; 
ber 3 “INTEGER? 
BEGIN 


outer: LOOP 
IF lcb(prt).fileopen THEN 

blk 2:=mbcb@et) .f£110; 

IF mem(blk).frm_len = O THEN 
lebterer PCBS. RSize #325512 
setDMA(mem(b1lk) .data(1) 'ADDRESS) ; 
Redden ale@les (prt). FCBb’ ADDRESS, rslt) ; 
i Gsiley— OfOkerslt = 3 THEN 


MemM@oic jie trite bem: ¢— 1; 
LOOP 
EPomenGolk)gemolen > 512 THEN 
mem(blk).frm_len := 0; 
EXIT; 
EEE 7 


IF mem(blk).data(mem(b1lk).frm_len) = 
BYTE (16#1A#) THEN 
leb(prt).fileopen := FALSE; 
Ee. “Outer ; 
ENDiLr 7 
IF mem(blk).data(mem(b1lk).frm_len) = 
BYTE(16#09#) THEN 
mem (De) -femelen := 
MeniCoieieerrm lenge; 
EXIT outer; 


Zon 


END IF; 
prntdata(mem(b1lk) .data(mem(b1lk) .frm_ lenjye 
mem(blk).frm_len := mem(b1ikK) . frm fens 


END LOOP; 
ELSE 
lcob(prt).fileopen := FALSE; 
Exh outer, 
END Wis? 
ELSE 
LOOP 
IF mem(bik).frm_ len > e502 ere 
mem(bik).frm len +=907 
Jap IEE Ye 
ENDs Lr? 
IF mem(blk) .data(mem(blk).frm_len) = 
BYTE(16#1A#) THEN 
lcb(prt).fileopen := FALSE; 
EXIT outer; 
END IF; 
IF mem(blk) .data(mem(blk).frm_len) = 
BYTE (16#09#) THEN 
mem(blk).frm_len := mem(blk).firm len tae 
EXIT outer; 
END LEE; 
prntdata(mem(blk) .data(mem(b1k).frm_ len)); 
mem(blk).frm_len := mem(blk).frm Jen + 7 
END LOOP; 
END IF; 
ELSE 
lcb(prt).state := ready; 
EXIT, 
END IF; 


END LOOP outer; 
IF lcb(prt).fileopen THEN 
NEW LINE; 
NEW_LINE; 
PUT("hit space bar to continue, VOueon quae!) 7, 
NEW LINE; 
ELSE 
close file(lcb(prt) .FCBb'ADDRESS) ; 
give_ memory (blk) ; 


LlebipEec). £2100 =n0), 
leb(prt).state := ready; 
ENDS iE; 


END information; 
END filexten- 


pragma warning(OFF) ; 
pragma debug(OFF) ; 


--PACKAGE: locftp.PKG 


22 


meenULHOR: robert hartman 
ATs 1 may 86 
SoroleEM NAME: local 


ech tilexfer,global,library, bit, asmlib, strlib, io,util; 
PROCEDURE locftp is 
use filexfer, global, library, bit, asmlib, strlib,io,util; 


PROCEDURE handle kybd input(ch : IN BYTE) is 


blk : INTEGER; 
num : INTEGER; 
BEGIN 


CASE lcb(prt).state is 
WHEN ready => - 
CASE Chimes 
WHEN asciiT ! ascii _t => 
leb(prt).state := talk; 
PUT("Talk, enter text, *Z to send"); 
get_memory (blk) ; 
IF blk /= 0 THEN 
lebG@are).sndQ := blk; 
mem(blk).frm_len ;:= 0; 
NEW_ LINE; 
ELSE 
PUL (“Cues oLememory”) ; 
lcb(prt).state := ready; 
Prompt; 
END IF; 
WHEN asciiS ! ascii_s => 
get memory (blk) ; 
IF blk = 0 THEN 
PUR Sue sor memory"); NEW LINE; 
lcb(prt).state := ready; 
prompt, 
ELSE 
lcb(prt).state := sendfile; 
PUT ("Send <filename> enter text, "); 
PUG(a4n co senda’) ; 
NEW_LINE; 
leob(prt).namQ := blk; 
mem(blk).frm_len := 0; 
END LR; 
WHEN asciiG ! ascii _g => 
get_memory (blk); 
IF blk = 0 THEN 
PUT ("out of memory") ; 
prompt; 
ELSE 
IF prt = head THEN 
PMmecannoue Gee f£rom 'all'") ; 
DEOMPE ; 
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Eten 
leb(prt).state 2="9errae. 
PUT ("Get <filename> enter text, "); 
put("*Z €oO Gets, 
NEW LINE; 
leb(prt).sndQ <= Bike, 
mem(blk).frm_len ; ; 
END Si, 
END rE 
WHEN asciiQ ! ascii _q => 
PUL (OUnse she oii letaninae ie, 
lcb(prt).state := quit; 
WHEN asciiQuest => 


NEW_ LINE; 

PUT (“ali > NEWT UENEY 

PUT ("Bell") ; NEW LINE; 
PUT("Change group”); NEWREENE; 
PUT ("Directory"); NEW Tain 
PUT ("Get NEW erin 

PUT ("Information") ; NEW LINE; 


PUT("List") ; NEW LINE; 
PUT ("Mailbox") ; NEW LINE; 
PUT ("Netstat") ; NEW_LINE; 
PUT("Print") ; NEW LINE; 
PUT ("Quit") ; NEW LINE; 
PUT ("Send"); NEW_LINE; 
PUT ("Talk"); NEWSLINE 
PUT ("Verbose"); NEW LINE; 
PUT("Who's there"); NEW_LINE; 
PUT ("<destination #>"); NEW _LINE; 
PUT("#") ; NEW LINE; 
PUT ("2") ; = 
Pronpe; 
WHEN BYTE(16#30#)..BYTE(16#39#) => 
prntdata(ch) ; 
lcb(prt).dest_ chg <= ch, 
léb(prt).state 2:= preyena, 
WHEN asciiW ! ascii _w => 

get memory (blk) ; 
TF blk = 0 Then 

PUT("out of memory a, 

DroOnpe, 
Bio rs 

PUT("Who's there?") ; 

LOOP 

EXIT WHEN lcb(head).link = head; 
deactivate (lcb(head) .link) ; 


END LOOP; 

mem(blk).frm_len ;:= 0; 
mem(blk).dst := broadcast; 
mem(blK).src (= Si#emibac, 
mem(blk).typ := whothere; 
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mem(blk).len(1) := BYTE(0O) ; 
mem(blk).len(2) := BYTE(0); 
mem(blk).cksum := BYTE(0); 
mem(blk).cksum := 
cksum(mem(b1k) 'ADDRESS,hdr_ len) ; 

put _in trnsQ(blk); 
prompt; 

END SLE; 

WHEN asciiN ! ascii _n => 

PUT ("Netstat") ; 

outport(dat,code status) ; 

LOOP 
inport (stat,data) ; 
EXIT WHEN tstbit (INTEGER (data) ,RxRdy) ; 

END TLOOP ; 

inport (dat,data) ; 

prompt; 

WHEN asciiL ! ascii 1 => 
PUT("List") ; NEW LINE; 
ptr := lcb(head) .link; 


PUT("term #, name, eas 
puE("stawe of connection") ; 

NEW LINE; 

LOOP 


EXIT WHEN ptr = head; 
PURGES) 7 Bune '> ier 
Leeper <) LOOSEN 
PUT" oi 
BND VIE; 
PUT(lcb(ptr) .name) ; 
FOR i IN LENGTH(lcb(ptr).name)..20 LOOP 
PUT(" ee 
END LOOP; 
CASE lcbh(ptr).state is 
WHEN ready => 
PUT(" ready") ; 
WHEN sending => 
PUT(" sending") ; 
WHEN getfile => 
PURC ugetEile").; 
WHEN repeatsnd => 
PUT("repeat transmission") ; 
WHEN wait _for_ack => 
PUT ("wait for acknowledgement") ; 
WHEN receiving => 
PUT ("receiving") ; 
WHEN dir => 
ror’ Directory") ; 
WHEN others => 
PUl¢* unknown state") ; 
ENDVCAS E> 
NEW LINE; 


Zo 


Dike 
END “SCP; 
PUT("Your terminal numbe 
PUT (INTEGER (SEeapIs em. 
PDEONpE, 

WHEN asciiA ! 
PUT (alien, 
prt := head; 
dst prt := broadcast; 
prompt; 

WHEN asciiI ! ascii _i => 
PUT ("inftormacren. e, 
lcob(prt).FCBS.dty =j—sos 
leb(prt). Fesbinaneie® 
loeb (pre). FCBD name) 
lceb(prt) .FCBb . names) 
lcob(prt) .FCBb.name (4) 
FOR 1 IN 5..8 LOOCE 

leb( prt) .FCBb. names 
END LOOP; 
Leb{ pre). FCBO-e ees) 
leb(prt).FCBbwext<) 
leb( pel) se Resp 7erce (sy 
open file(lcb(prt) .FCBb' 
IF found THEN 

get_memory (blk) ; 

leb (prt) .staice inf 

Leb (pee) sine bik; 

leb(prt) .fileopen 
lcob( prt) .FCBb. extne 
1Gb( pre) BeEbrircee 


lob( ptr) . lame 


ascii a => 


mem(blk).frm_len := 0; 
NEW LINE; 
LnLOrmat ton (psc, 
ELSE 
FOR i IN 1..8 LOOP 
prntdaca (eb (pmae) 
END LOOP; 
PUT('.'); 
FOR 1 EN@ 22. LOocr 
prntdata(len( pase 
END SECO, 
PUT(" not on currence 
prompt; 
END IF; 
WHEN asciiD ! ascii _d => 
lcb(prt).state := dime- 
PUT ("Directory, entereste 


get_memory (blk) ; 
IF blK /= 0 THEN 
Lleb( prt) <snde 
mem(blk).frm_len 


Dic 


2915 


:= 0; 


cr LS oe, 


Eco)? 
ascii: 
asciiN; 
aseilak 
asei10- 


:= asciispace; 
asciiT; 
= asclix; 
asciiT-> 
ADDRESS, found) ; 


O; 
DEOE ; 


O; 
BYTE (0); 


— 


f 


-FCBb.name(i)); 


~PCBD ext (1m 


logged disk"); 


Xt, *Z to sendive 


e 


NEW LINE; 

ELSE 
PUT ("out of memory") ; 
lcb(prt).state := ready; 
prompt; 

Eee, 

WHEN asciiB ! ascil_b => 
IF bell _on THEN 


bell on := FALSE; 
PUT ("Bell-OFF") ; 
ELSE 
bell on := TRUE; 
PUT ("Bell-ON") ; 
END IF; 
prompt; 


WHEN asciiM ! ascil_m => 
IF. mailbox THEN 


mailbox := FALSE; 
PUT ("Mailbox-OFF") ; 
ELSE 
mailbox := TRUE; 
PUT ("Mailbox-ON") ; 
END IF; 
prompt; 


WHEN asciispace => 
IF lcb(prt).state = info THEN 
information (prt) ; 
ELSE 
prompt; 
END IF; 
WHEN asciiV ! ascili_v => 
IF verbose THEN 
PUT ("Verbose-OFF"') ; 


verbose := FALSE; 
ELSE 

PUT ("Verbose~-ON") ; 

verbose := TRUE; 
END IF; 
prompt; 


WHEN asSciilbs => 
PUT ("destination terminal is now "); 
puc( “yous: terminal); 


prt := INTEGER(sre prt); 
(Stapiaew. — Sto uprt, 
pRomMmpeE- 


WHEN asciiP ! ascii _p => 
IF used _ blk >= max_mem_blk - 1 THEN 
PUT("out of memory"); NEW_LINE; 
lceb(prt).state := ready; 
prompt; 
ELSE 
Gliiepemierdat,code print) ; 
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LOOP 
inport (stat, daa)? 
IF tstbit(INTEGER(data) ,RxRdy) THEN 
inport (dat; daca; 
IF data <= BYTE (ium prts) Sia 


estab := TRUE; 

printer := INTEGER(data) ; 
prt := printwen: 

GSE PEG 2 —s@acay 
lcb(prt).state := sendfile; 


PUT ("Print <filename>= 
put("enter text, *Z to prinuiam 
NEW LINE; 
get_memory (blk) ; 
leb(prt) .namQ <= blk; 
mem(b1lk).frm_len := 0; 
jap LIE 
ELSE 
PUT (“Printer busy jr; 
DPLrolpe, 
EALT ; 
BND Slr; 
END 
END LOOP; 
END: if) 
WHEN asciic ! ascii_c => 
PUT("Change group, enter destination #") ; 
outport (dat,code cise 


estab := FALSE; 
Mailbox) ;= TRUE: 

WHEN asciiCR => 
prompt; 


WHEN others => 
PUT ("unrecognized command, "); 
put ("type '?' for cemmand list") ; 
DEOMNPE; 
END IGASE; 
WHEN talk => 
blk := léeb(pre). snag; 
CASE ch is 
WHEN asciicntlR => 
NEW LINE; 
FOR i IN 1..mem(b1K) . fm ven eueoP 
prntdata(mem(blk).data(i1)); 
END LOOP; 
WHEN asciicntlZ => 
mem(blk).typ := talk; 


mem(b1k).len(1) := hi(mem(b1lk).frm_len); 
mem(blk).len(2) := lo(mem(blk).frm_len); 
mem(blk).dst := dadst_prt; 

mem(blk).srce := src prt; 

mem(blk).cksum := BYTE(0); 
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mem(blk).cksum := cksum(mem(b1k) 'ADDRESS, 
mem(blk).frm_len + hdr_ len); 
Bie, in trns® (bik); 
leb(prt).sndQ := 0; 
lceb(prt).state := ready; 
prompt; 
WHEN asciicntl1Q => 
NEW LINE; 
PUT ("discarding entries") ; 
give memory (blk) ; 
Hebi prt).sndO := 0; 
lcb(prt) .state := ready; 
prompt; 
WHEN asciiBS ! asciiDEL => 
PRenentolk) .femolen > 0 THEN 
memi(bik).frm_ len := mem(blk).frm_len - 1; 
prntdata(asciiBS) ; 
prntdata(asciispace) ; 
prntdata(asciiBS) ; 
BND LE; 
WHEN others => 
mem(blk).frm_len := mem(blk).frm_len + 1; 
mem(b1lk) .data(mem(blk).frm_len) := ch; 
PEntedata(ch) ; 
IF ch = asciiCR THEN 
mem(blk).frm_len := mem(blk).frm_len + 1; 
mem(blk) .data(mem(blk).frm_len) := asciiLF; 
prntdata(asciiLF) ; 
END IF; 
Ee snem (iis). trhme len = 512 HEN 
mem(blk) .typ := talk; 
mem(blk).len(1) := hi(mem(b1k) .frm_len) ; 
mem(blk).len(2) := lo(mem(blk).frm_len); 
mem(blk).dst := dst_prt; 
mem(blk).srce := sre prt; 
mem(blk).cksum := BYTE(0); 
mem(blk).cksum := cksum(mem(b1k) 'ADDRESS, 
memi(blk).frm len + hdr len); 
put_in_trnsQ(blk) ; 
get_memory(blk); 
IF blk /= O THEN 
ep (pri). sna® = walds; 
ELSE 
NEW LINE; 
PUT ("out of memory") ; 
leb(prt).sndQ := 0; 
lcb(prt).state := ready; 
DEOmpeE, 
END IF; 
END IF; 
END CASE; 


— 
— 
— 
= 
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WHEN quit => 
IF ch = asciiCR THEN 
quit received := TRUE; 
PUT (" Good-bye. “ja 
NEW_LINE; 
ELSE 
NEW LINE; 
lcb(prt).state := ready; 
DrEOUpeE; 
END IF; 
WHEN prt_chg => 
CASE ch is 
WHEN BYTE(16#30#)..BYTE(16#39#) => 
prntdata(ch) ; 
num := Land (INTEGER(lcb(prt) .dest chg), 
INTEGER (16#000F#) ) ; 
num := (num * 10) + 
Land (INTEGER(ch) , INTEGER(16#000F#) ); 
IF num > num pres THEN 


num := prt; 
PUT ("port num out of range") ; 
PND EE, 
WHEN asciiCR => 
num := Land(INTEGER(lcb(prt).dest_chg), 


INTEGER (16#000F#) ); 
WHEN others => 
Num: = pre; 
PUT ("bad input: 
END CASE; 
lcb(prt).state := ready; 
prt := num; 
dst pre s;= BYTE (pec); 
activate (prt); 
IF NOT estab THEN 
outport (dat,code_local) ; 
END IF; 
prompt; 


WHEN sendfile => 
blk := lcb(prt) .namQ; 
CASE ch is 
WHEN aSciicntl1R => 
NEW LINE; 
FOR 1 IN 1..mem(b1k).frm_len LOOP 
prntdata(mem(blk).data(i)); 


END EOOFr; 

WHEN aSciicntlZ => 
lcb(prt).state := sending; 
lcob(prt).search := FALSE; 
lcb(prt).fileopen := FALSE; 
leb(prt).endFile ==  FAESE, 
lceb(pret) . linesene aur 


300 


prompt; 

WHEN asciicntlQ => 
NEW LINE; 
PUT("discarding entries") ; 
give memory (blk) ; 
lecb(prt).state := ready; 
lcob(prt).namQ := QO; 

IF prt = printer THEN 
outport(dat,code endprint) ; 
printer := 99; 

END IF; 

prompt; 

WHEN asciiBS ! asciiDEL => 
IF mem(blk).frm_len > 0 THEN 

mem(biLk).frm_len mem(blk).frm_len - 1; 
Drneadtaltdsemlbo 

prntdata(asciispace) ; 

prntdata(asciiBsS) ; 

END ZF; 

WHEN others => 
mem(blk).frm_len := 
mem(blk) .data(mem(blk).frm_len) 
DEnedatatich) ; 

IF ch = asciiCR THEN 
mem(b1lk).frm_len := mem(blk).frm_len + 1; 
mem(blk).data(mem(blk).frm_len) := asciiLF; 
prntdata(asciiLF) ; 

BNDO ir; 

iF memiolic ~ frm len 512 THEN 

lcb(prt).state := sending; 

lcb(prt).search := FALSE; 

lcb(prt).fileopen := FALSE; 

lcb(prt).endFile := FALSE; 

prompt; 

ENDIF ; 

END CASE; 

WHEN getfile => 

plik. —— Leb (pre) .sndo; 

CASE ch is 

WHEN asciicntl1R => 
NEW LINE; 

FOR i IN 1..mem(b1k).frm_len LOOP 
prntdata(mem(blk).data(i)); 

END LOOP; 

WHEN asciicntl1Z => 
mem(blk).typ := 


mem(blk).frm_len + 1; 
ch; 


getfile; _ 


mem(blk).len(1) 
mem(b1lk).len(2) 
mem(blk).dst 
mem(blk).srce 


-—emib@mem(blk) .frm len) ; 
lo(mem(blk).frm_len) ; 
aSe psc, 
srce_prt; 


mem(blk).cksum := BYTE(0O); 


mem(blk) .cksum 


>= cksum(mem(blk) 'ADDRESS, 


Or 


mem(blk).frm_len + hdr len); 
put in cense (olin 
leob(prt).snd@ =.= 70; 
lcb(prt).state := ready; 
PLOMpe, 
WHEN asciicntlQ => 
NEW LINE; 
PUT("Giscarding entries") ; 
give _ memory (blk) ; 
leb(prt) .snad@:— 6; 
leb(prt)- state := read, 
WHEN asciiBS ! asciiDEL => 
IF mem(blk).frm_len > O THEN 


mem(blk).frm_len := mem(blk).frm_len - 1; 
prntdata(asciiBS) ; 
prntdata(asciispace) ; 
prntdata(asciiBS) ; 
ENDY ii; 
WHEN others => 
mem(b1k).frm_len := mem(b1lk).frm_len + 1; 
mem(blk) .data(mem(blk).frm_len) := ch; 
prntdata(ch) ; 
IF ch = asciiCR THEN 
mem(blk).frm_len := mem(blk).frm_len + 1; 
mem(blk).data(mem(blk).frm_len) := asciiLF; 
prntdata(asciiLF) ; 
END-LE; 


IF mem(blk).frm_len = 512 THEN 
mem(blk).typ := getfile; 


mem(blk).len(1) := hi(mem(b1lk).frm_len) ; 
mem(blk).len(2) := lo(mem(blk).frm_len); 
mem(b1lkK) .dst := adSt prc; 

mem(blk).sre := sre prt; 

mem(blk).cksum := BYTE(0O); 
mem(b1lk).cksum := cksum(mem(b1K) 'ADDRESS, 


mem(b1lk).frm_len + hdr_ len); 
put_in trnsQ(blk); 
icb(prt) -sndo ss — c- 
leb(prt).state := ready; 
END IF; 
END CASE; 


WHEN dir => 

blk. := licbh(pet) .sndeo- 

CASE ch is 

WHEN asciicntlR => 
NEW LINE; 
FOR 1 IN 1..mem(blk).frm_len LOOP 

prntdata(mem(blk).data(i)); 

END LOOP; 

WHEN asciicntlZ => 
mem(blk).typ := dir; 
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mem(blk).len(1) := hi(mem(blk).frm_len); 
mem(blk).len(2) := lo(mem(blk).frm_len); 
mem(blk).dst := dst_prt; 
mem(blk).sre := src_prt; 
mem(blk).cksum := BYTE(0); 
mem(blk).cksum := cksum(mem(blk) 'ADDRESS, 
mem(blk).frm_len + hdr len); 
put_in_trnsQ(blk); 
iep(pEe).sndo s— 0; 
lcb(prt).state := ready; 
PEOnpic, 
WHEN asSciicntlQ => 
NEW LINE; 
PUT ("discarding entries") ; 
give memory (blk); 
Leb( pee) .snae.;:— 0; 
lcb(prt).state := ready; 
WHEN asciiBS ! asciiDEL => 
Pe Wem (oui): erm ren = 0 THEN 
mem(blk).frm_len := mem(blk).frm_len - 1; 
prntdata(asciiBS) ; 
prntdata(asciispace) ; 
prntdata(asciiBS) ; 
END IF; 
WHEN others => 
mem(b1k).frm_len := mem(blk).frm_len + 1; 
mem(blk).data(mem(blk).frm_len) := ch; 
pemedatarcen) ; 
IF ch = asciiCR THEN 
mem(blk).frm_len := mem(blk).frm_len + 1; 
mem(blk).data(mem(blk).frm_len) := asciiLF; 
prntdata(asciiLF) ; 
END EF; 
Paenemn(olik) ~ frm plen = 512 THEN 
mem(blk).typ := getfile; 
mem(blk).len(1) := hi(mem(b1k) .frm_len) ; 
mem( plik). ten(2) == Ho(mem(blk).frm len) ; 
mem(blk).dst := dst_prt; 
mem(blk).srce := src_prt; 
mem(blk).cksum := BYTE(0O); 
mem(blk).cksum := ckKsum(mem(blk) 'ADDRESS, 
mem(b1lk).frm_len + hdr _ len); 
BUEN tense (bli: 
leb(pre).snaO *="0; 
lcb(prt).state := ready; 
END ieE Er ; 
END CASE; 
WHEN log => 
IF ch = asciiBS OR ch = asciiDEL THEN 
IF length(lcb(head).name) > O THEN 
lcb(head).name := remove(lcb(head).name, 
length(lcb(head) .name) ,1); 
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prntdata(asciiBS) ; 

prntdata(asciispace) ; 

prntdata(asciiBsS) ; 
END OIE; 

ELSE 
prntdata(en), 
lcb(head).name := 
insert (char to str(Syte touch: (echiae 

lcb (head) .name, length(lcb (head) .name)+1) ; 


END TF; 
WHEN info => 
CASE ch is 
WHEN asciispace => 
Informarron(pet \ 7 


WHEN asciiQuest => 
prntdata(ch); NEW LINE; 
PUT ("space bar"); NEWT EENE; 
PUT("Quit") ; NEW LINE; 
WHEN asciiQ ! ascii q => 
close file(lcb(prt) .FCBm ADBRESS) >; 
lcb(prt).fileopen := FALSE; 
lcb(prt).state := ready; 
give memory(lcb(prt) .f11Q) ; 
prompt; 
WHEN others => 
PUT ("unrecognized command"); 
NEW LINE; 
END CASE; 
WHEN others => 
IF prt /= INTEGER(Sre prt) Deen 


prt := INTEGER(sre prt); 

aSt pre += "sre pas, 
ELSE 

prt := head; 

ast prt, -— BYTE (head): 
END IF; 
NEW LINE; 
PUT("Process running on this connection, "); 
put("changing destination terminal") ; 
prompt; 


ENDOCASE , 
END handle kybd input; 


PROCEDURE handle incoming packet(blk : IN INTEGER) is 
BEGIN 

ptr := INTEGER(mem(blk).src); 

IF ptr <= num prts THEN 

activate (ptr) ; 

CASE mem(blk).typ is 

WHEN talk => 
IF lcb(prt).state /= ready THEN 
IF leb(ptr) .revO = OnE 
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iebQ(penyecevo 3=— blk; 
ELSE 
add_to Q(lcb(ptr).rcvQ) ; 
END IF; 
ELSE 
NEW LINE; 
PUT("msg fr "); 
PUAMerGh (ptr) -name))s, 
PUT(ptr); PUT('>'); NEW LINE; 
FORT iN 1. carn tomant(mem(blk).len) LOOP 
prntdata(mem(b1lk).data(i)); 
END LOOP; 
IF bell _on THEN 
prntdata(asciibell); 
END IF; 
give memory (blk); 
Peompe, 
END IF; 
WHEN sendfile => 
create FCB(b1k) ; 
NEW LINE; 
WHEN getfile => 
IF lcb(ptr).state /= ready THEN 
IF verbose THEN 
PUT("unable to send a file at this "); 
put("time because") ; 
IF lcb(ptr).state = sending THEN 
PUT(" state of terminal is sending") ; 
ELSE 
PUT(" state of terminal is dir data"); 
END IF; NEW LINE; 
ENDIF; 
mem(blk).dst 
mem(blk).sre src prt; 
mem(b1lk) .typ unable; 
mem(blk).cksum := BYTE(0O); 
mem(blk).len(1) BYES 0) a; 
mem(blk).len(2) BYTE(0) ; 
mem(blk).cksum := 
cksum(mem(b1lk) 'ADDRESS,hdr_len) ; 
put_in_trnsQ(blk) ; 


mem(blk).src; 


ELSE 
lcb(ptr).state := sending; 
lcob(ptr).search := FALSE; 
lcb(ptr).fileopen := FALSE; 
lcb(ptr).endfile := FALSE; 
lecb(ptr).namQ := blk; 
leb(ptr).line cnt := 0; 

END IF; 


WHEN filedat => 
receive file(blk); 
WHEN global.EOF => 
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close FEB (bile, 
prompt; 
WHEN whothere => 

mem(blk).frm_len := 07. 

FOR i IN 1..LENGTH(lcb(head).name) LOOP 
mem(b1k) .data(i):= conv_byt(lcb(head) .name(i)); 
mem(b1lk).frm_len := mem(blk).frm_len + 1; 

END LOOP; 


mem(blk).dst := mem(blk).src; 
a: 


mem(blk).sre := srce_prt; 

mem(blk).typ := ImHere; 

mem(b1lk).len(1) := hi(mem(blk).frm_len) ; 
mem(blk).len(2) := lo(mem(blk).frm_len); 
mem(b1lk).cksum := BYTE(0); 


mem(blk).cksum := cksum(mem(b1lk) 'ADDRESS, 
mem(blk).frm_len + hdr Senge 
put_in_ trnsQ(blk) ; 
WHEN ImHere => 
lcob(ptr).name := 
arr to _strg(mem(blk) .len( 2)" ADDRESS 
NEW_ LINE; 
PUT (Dtr ee PUL Cl; 
PUT (lcb(ptr) .name) ; 
give _ memory (blk); 
prompt; 
WHEN acklast => 
IF lcb(ptr).state = wait_for_ack THEN 
lcb(ptr).state := sending; 
Give memory (leb(per). fureie 
LebD( ptr). filo ys=—s0- 
END IF; 
give memory (blk) ; 
WHEN badtrns => 
PUT ("rec'd badtrns") ; 
IF lcb(ptr) .state = wait for _ack THEN 
lcb(ptr).state := repeatsnd; 
END IF; 
give memory (blk) ; 
prompt; 
WHEN unable => 
PUT ("rec'd unable") ; 
IF leb(ptr).state = waltwterraci tien 
lcb(ptr).state := ready; 
IF leb(ptr) .namQ /= © ZHE 
give memory (lcb(ptr) .namQ) ; 
lceb( ptr) 2nane:.— 2. 
END LE; 
IF leb(ptr).£110 /= 0 THe 
give memory(lcb(ptr) .£11Q) ; 
LEeb( ptr) .L£1L lO .= ser 
END IF; 
ENDELE: 
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give memory (blk) ; 
prompt; 
WHEN dir => 
IF lcb(ptr).state /= receiving 
OR lcb(ptr).state /= sending THEN 
emMmeoem ram. >= silk; 
leD(ptiay~stace s= Airwdata; 
END IF; 
WHEN dir data => 
IF Lebipre) state = talk OR 
lcb(prt).state = sendfile THEN 
IF leb(ptr).rcvQ = 0 THEN 
leb(pEer).rcv@® := blk; 
ELSE 
adcalegtO(leb(ptr) .revQ) ; 
END IF; 
ELSE 
PUL("directory fr "); 
PU Goreme Lud (' >"); NEW LINE; 
Peoria .drm eG int (mem(blk).len) LOOP 
prntdata(mem(blk).data(i)); 
END LOOP; 
give memory (blk) ; 
prompt; 
END IF; 
WHEN code status => 
NEW LINE; 
Puna Naval Postgraduate "); 
put("School AEGIS Local Area Network") ; 
NEW_LINE; | 
PUT (" programmed by:") ; 
NEW_ LINE; 
Paes Robert Hartman and ""); 
put("Alec Yasinsac") ; 
NEW LINE; 
PUL (* acharsOdon Prot. U. ")> 
BUECKed es!!))- 
NEW LINE; 
PUT ("Network Status information follows: Your "); 
pUueE(" termina Nowe 1s" )# 
PUR(ptr) 
NEW LINE; 
PUT ("Local memory blocks in use/total is "); 
PUT (used bik) ; 
PUT('/'); 
PUT (max _ mem blk) ; 
NEW LINE; 
PULGsECmine pel stace —~local addr tcp state "); 
PUT ("term pcb state local addr tcp state"); 
NEW LINE; 


FOR i IN 0..INTEGER(mem(b1lk).data(1)) LOOP 
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PUT (ans 
IF i < 10 THEN 
PUT" a 
ELSE 
sil) 


PUT (" 
END IF; 
CASE mem(blk) .data(2+(1%*4)) is 


WHEN BYTE(0O) => PUT("closed") ; 
WHEN BYTE(1) => PUT("t_init") ; 
WHEN BYTE(2) => PUT("telnet") ; 
WHEN BYTE(3) => PUT (Ur Siskel je; 
WHEN BYTE(4) => PUT("ftp "); 
WHEN BYTE(5) => PUT("lstn "); 
WHEN BYTE(6) => PUT (Sigur Cre: 
WHEN BYTE(7) => PUT("local "); 
WHEN BYTE(8) => PUT("clsing") ; 
WHEN others => PUT("unkwn "); 

END CASE; 

PUT" W) 


PUT (INTEGER (mem(blk) .data(3+(1*4) 
IF (INTEGER(mem(blk) .data(3+(i*4) 

PUT ( iD ] uy Ne 
ELSE IF (INTEGER(mem(blk).data(3+(i*4)))) < 100 
THEN 


I): 
))) < 10 THEN 


PUT (" 
ELSE PUT(" 
END IF; 
END IF; 
PUT (INTEGER (mem(blk) .data(4+(i*4) 
IF (INTEGER (mem(b1k) . data (4+(i*4) 

PUT (" mys 
ELSE IF (INTEGER(mem(blk) .data(4+(i*4)))) < 100 


a 


Le 


PUT (" 


ee 


ELSE PUT(" 


END LF; 
END IF; 


aes 


CASE mem(bl1k).data(5+(i*4)) is 


THEN 


WHEN BYTE(1) => PUT("listen Ls 
WHEN BYTE(2) => PUT("syn_snt a 
WHEN BYTE(3) => PUT("syn_ rcv Jo 
WHEN BYTE(4) => PUT("estab ey 
WHEN BYTE(5) => PUT("fin wait 1 "); 
WHEN BYTE(6) => PUT @'£im wet 2°); 
WHEN BYTE(7) => PUT("close wait "); 
WHEN BYTE(8) => PUT("closing ss 
WHEN BYTE(9) => PUT("last ack ae) 
WHEN BYTE(10) =>PUT("time wait "); 
WHEN others => PUT("closed go es 
END CASE; 


Pe eeicem 2. 


NEW LINE; 


La EN 
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END IF; 
END LOOP; 
IF verbose THEN 
PUT("number of used blocks/total: "); 


ptr := INTEGER(mem(blk).data(1)) * 4 + 6; 
PUT (INTEGER(mem(b1lk).data(ptr))); 
PUG )).: 


DGigees” Der tL; 
PUT (INTEGER(mem(b1k) .data(ptr))); 
NEW LINE; 
Dili —~ Diem fos; 
PUT("TCBs in use/total: "); 
PUT (INTEGER(mem(b1k).data(ptr))); 
PUI") > 
Der i= DE +-1; 
PUT (INTEGER(mem(blk).data(ptr))); 
NEW LINE; 
PUT("Ethernet controller board status follows:"); 
NEW_ LINE; 
ptr := ptr + 4; 
PUT("Ethernet physical address is "); 
FOR i IN 1..6 LOOP 
PUT (INTEGER (mem(blk) .data(ptr) )); 


Puen!) ; 
pet := pie + 1; 
END LOOP; 
NEW LINE; 
JGR (CU eperebalete) Tel Verel sie ain 5 0 66 oo a oo Ae 


PUT(two_bytes(mem(b1k) .data(ptr) 'ADDRESS) ); 
NEW LINE; 

Detc.— per +. 2; 

PUitrames In receive FIFO. .....eevccscuee ne. 
PUT (two bytes(mem(blk).data(ptr) 'ADDRESS) ); 
NEW_LINE; 

Pemeas— Ptr + 2; 

PWM Tranes GransSmitted. . 2... ssisisise es eee eee se 
Pl (EvOm yee s(memgolk) data (ptr) "ADDRESS) ) ; 
NEW_LINE; 

Der is = str +. 23 

PuURGexcess Collisions....... 56° 0.0 0 oe Lb 
PUT (two bytes(mem(blk) .data(ptr) 'ADDRESS) ) ; 
NEW _ LINE; 

Dae s— PEG s+ (2; 

PUT("collision fragments received......... Ais 
PUT (two bytes (mem(blk) .data(ptr) 'ADDRESS) ); 
NEW_ LINE; 

Dewees ptr +2, 

IPE (| MA foxes eects cea GS Seuss 
PUT (two bytes(mem(blk).data(ptr) 'ADDRESS) ) ; 
NEW LINE; 

PE oper +. 2; 

PUM@MmmerCaASt frames accepted.....-..e.s. LE 
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PUT (two bytes(mem(b1k).data(ptr) 'ADDRESS) ); 
NEW LINE; 
DEE es=— Per +. 2, 
PUT("multicast frames rejeecCed tee We 
PUT (two _bytes(mem(blk) .data(ptr) 'ADDRESS) ) ; 
NEW_LINE; 
DtYr += ptr + 2; 
PUT ("Cre CYLOLrsS.... 2s 6 =o ale eee eee "a 
PUT (two bytes(mem(blk) .data(ptr) 'ADDRESS) ) ; 
NEW LINE; 
Dtr ~= (Ptr 2, 
PUT(“alignment errors... sce a) 
PUT (two _bytes(mem(blk) .data(ptr) 'ADDRESS) ); 
NEW LINE; 
DEE pelea, 
PUT ("COoLLISiONS.« . « «os + «<6 enenane ere we) S 
PUT (two bytes(mem(blk). data (ptr) 'ADDRESS) ) ; 
NEW_LINE; 
Drie t= Pere +2; 
PUT ("out-of-window collisions rye ee a) 
PUT (two _bytes(mem(b1lk).data(ptr) 'ADDRESS) ) ; 
NEW LINE; 
DEP wie, Der a2, 
FNDSLE 
give_memory(blk); 
prompt; 
WHEN others => 
IF verbose THEN 
PUT ("received unknown type") ; 
END IF; 
give _memory(blk); 
prompt; 
END CASE; 
Bbok 
give memory(blk); 
END IF; 
END handle incoming_packet; 


PROCEDURE established is 
loopthrshld : INTEGER; 
thrshids- MiiEcer, 
loopcnt : INTEGER; 
local seg num <: array2; 
foreign seg num : array2; 
msgcnt : INTEGER; 
no send 22 wT ECER 
no rec : INTEGER; 
digr2ADs aliajone 1s RECORD 
size: BY GE; 
ch : STRING; 
END RECORD; 
Nnpt lo: Mibe. 
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joe >: INTEGER; 


BEGIN 
PUT("Connection Ready"); NEW LINE; 
trnsQ := 0O; 
used blk := 0; 
1cb(head).link := prt; 
lcob(head).dest := broadcast; 
Hep(prt).link := head; 
Veb(pret).act := TRUE; 
leb(head).act := TRUE; 
meoket IN i. .max@mem blk — 16LO0OP 
mem manag tbhl(i) := 1+ 1; 
END LOOP; 
mem manag tbl(max-mem_ blk) := 0; 
free bikws=— 1; 
quit received := FALSE; 
- bell on := FALSE; 
mailbox := FALSE; 
verbose := TRUE; 
runfil := FALSE; 
Bane. O := 0: 
estab := FALSE; 
logged_in := FALSE; 
printer := 99; 
Mep( prt) .stace <= log; 
Pia! Login: <™) - 
LOOP 


—~-GChieek HomCOntcrol 
--codes from concentrator 
inport(stat,data); 
IF tstbit(INTEGER(data) ,RxRdy) THEN 
inport (dat,data) ; 
CASE data is 
WHEN code cls => 

IF mailbox THEN 
outport (dat,code lstn); 
estab := FALSE; 

ELSE 
1, El 

END IF; 

WHEN code estab => 

NEW_ LINE; 

PUT("Connection Established") ; 

estab := TRUE; 

IF NOT logged in THEN 
lcb(head) .name := "NO-NAME"; 
logged_in := TRUE; 
lcb(head).state := ready; 

END IF; 

prompt; 
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WHEN code local => 
OUEDOre (dace, aStapme re, 
WHEN others => null; 
END CASE; 
END IF; 


--handle keyboard input 
IF keypress() THEN 
Gecem(enn- 
IF logged_in THEN 
IF estab THEN 
EP Genesco 
IF ch = asciicntlQ THEN 

runfil := FALSE; 

-LF leb(prt) .£rteopens te 
close file(lcb(prt) .FCBb"ADDRESSIe 
lcb(prt).fileopen := FALSE; 

END IE; 

IF ich(prt) .namQ /— OO 2HEN 
give memory (lcb(prt) .namQ) ; 
lcb(prt) .nam@e:—so: 

END IF; 

IF leb(prt) .£10)/= Cen 
give memory (lcb(prt) .£119Q) ; 
leb(prt) .£11Ogs=on 

Fn ee, 

lcob(prt).state := ready; 

END IF; 

Bbok 
handle kybd input(ch) ; 

END IF; 

ELSE 

CASE ch is 

WHEN asciizero..asciinine => 
handle kKybd input(ch) ; 

WHEN asciiP ! ascii _p => 

handle kybd_input(ch) ; 

WHEN asciiCR => 
handle kybd input(ch) ; 
WHEN asciiQuest => 

PUT ("Information ea, 

NEW LINE; 

PUT ("?') ; 

NEW LINE; 

PUT ("Quit") ; 

NEW LINE; 

PUT ("Netstat") ; 

NEW LINE; 

PUT ("Prine 

NEW LINE; 

PUT ("<destination-=% ; 

NEW LINE; 
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WHEN asciiI ! ascil_i => 
handle kybd_input(ch) ; 
WHEN asciispace => 
handle kybd input(ch) ; 
WHEN asciiN ! ascii_n => 
handle kybd_input(ch) ; 
WHEN asciiQ ! ascii q => 
handle kybd_input(ch) ; 
WHEN others => 
PUT ("not established, "); 
put ("enter destination # or P"); 


prompt; 
END CASE; 
END IF; 
ELSE : 
CASE Sen 1 


WHEN asciiA..asciiZ => 
handle kybd input(ch) ; 
WHEN aScil_a..ascil Zz => 
ch := capital(ch); 
handle kybd_ input (ch) ; 
WHEN asciiQuest => 
PUT ("Enter your name followed by <CR>") ; 
NEW LINE; 
PUT (lcb(head) .name) ; 
WHEN asciiBS ! asciiDEL => 
handle kybd_input(ch) ; 
WHEN asciiCR => 
Ilcb(prt).state := ready; 
logged_in := TRUE; 
prompt; 
WHEN others => 
PUT("illegal entry") ; 


NEW LINE; 
PUT (lcb (head) .name) ; 
END CASE; 
IF length(lcb(head).name) = 20 THEN 
lcb(prt).state := ready; 
logged _in := TRUE; 
NEW LINE; 
PUT ("maximum name length is 20") ; 
prompt; 
END IF ; 
END IF; 
END IF; 


EXIT WHEN quit received; 
--get incoming packets 
inpeme (statydata) ; 
IF tstbit(INTEGER(data),DSR) AND used _blk /= 
max_mem blk THEN 
inport (dat, data) ; --clear port 


owls 


bytcnhGs:— o> le. 
get memory (blk) ; 
get _trns(mem(blk) 'ADDRESS,dat,bytcnt) ; 
LF bytents 0 etre 
byt := mem(blkK).cksum; 


mem(blk).ckKsum := BYTE(0); 
mem(blk).frm_len := arr_to_int(mem(blk).len); 
msgcnt := mem(blk).frm len + hdr len; 


IF byt /= cksum(mem(blk) 'ADDRESS,msgcnt) THEN 
PUT ("***error in cksum***") ; 
NEW LINE; 
mem(blk).cksum := BYTE(1); 
END IF; 
IF msgent > bytcnt THe 
PUT("-entire msq NOT@reciiie, 
PUT(" msg len = "); PUT(@egcenc)s, 
PUT(" byt cnt = "); PUT ccrer, 
NEW LINE; 
give memory (blk) ; 
ELSE 
handle incoming packet(blk) ; 
END IF; 
ELSE 
give memory (b1k) ; 
ENDSLE; 
END IF; 


-<poll the LCBs 
FOR 1 IN 0O..head LOOP 
CASE lcb(1)iwstate is 
WHEN sending => 
IF used blk < 5 THEN 
send file(i); 
EN Dis, 
WHEN repeatsnd => 
bLK := Leb) bsrer 
IF blk /= 0 THEN 
send trns(mem(b1k) 'ADDRESS,dat, 
mem(b1lk) .frm_len) ; 
IF mem(b1lk).frm_len = 0 THEN 
IF lcb(i).dest = broadcast OR 
i = printer THEN 
lcb(i).state := sending; 
give memory (blk) ; 
lcbii1) .£110-2=me;, 
ELSE 
lcb(i).state := wait for ack; 
END Ir; 
IF verbose AND 
mem(b1lk) .typ 
PUT (".1) > 
leb(prt) . linemen 


filedat THEN 
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ichig(acaeeanesem: + 1; 
iP leb( pre dine Ght > $0 THEN 
NEW LINE; 
lebi(prt). laine cnte:— 0, 
END IF; 
END IF; 
END IF; 
ELSE 
lcb(i).state := ready; 
END IF; 


WHEN dir data => 
IF used blk < 5 THEN 
get memory (blk); 
Eb Ci eee Or = ia k ; 
send dir(i); 
END IF; 


WHEN others => 
null; 


END CASE; 


PPeleceii).revo /= O AND Icbh(prt) .state /= talk AND © 
lcb(prt).state /= sendfile THEN 
Pbk Leb{ ease 0 ; 
_leb(1).rcvQ := mem_manag_tbl(blk); 
handle incoming _packet(blk) ; 
END IF; 
END LOOP; 


--send transmissions 


IF trnsQ /= O THEN 
send trns (mem(trnsQ) *'ADDRESS,dat, 
mem(trnsO).frm len) ; 
IF mem(trnsQ).frm_ len = 0 THEN 
bik =" CrnsO, 
trnsQ := mem_manag_tbl (blk) ; 
give_ memory (blk) ; 
END IF; 
END LF; 
END LOOP; 
Suepore(dat,code cls); 
END established; 


BEGIN 
inport (dat, data) ; --clear port 
mmport (ocwl req,org ocwl); --save mask 'till end 


SiiEpore(Oocwl ireg,ocwl) ; 
Seucport (cmd, cir) ; 
clrscreen; 

FOR 1 IN 0..head LOOP 


315 


lcb(1).state := ready; 
leob(1i). name == 
Iie} s) (al evens 
led ( hiesnae 
Lebi(1). sew 
lepi( 1) 2 ere 
lcb(1i).dest 
END LOOP; 
outport (dat, code peqere):, 
LOOP 
inport(stat,data) ; 
IF tstbit(INTEGER(data) ,RxRdy) THEN 
inport(dat,data):; 
IF data ="codeureq ras Iria: 
LOOP 
inport(stat,data) ; 
IF tstbit(INTEGER(data) ,RXRdy) THEN 
inport (dat, data) ; 
EXIT; 
END IF; 
END LOOP; 
PUT("your terminal number is "); 
src _ prt := data; 
PUT(INTEGER(src_prt)); NEW LINE; 
BALL; 
ELSE 
GUTPOLt (dat, CoOaecaregrrrie 
END-ILE; 
ENDS ik; 
END LOOP; 
DEC+:= head, 
GSt pret <= BYTE(i6GF ee): 
OuEDOLrE(dat,,code stn); 
LOOP 
LOOP 
inport(stat,data) ; 
EXIT WHEN tstbit (INTEGER (data) ,RxRdy) ; 
END LOOP; 
inport(dat,data) ; 
EXIT WHEN data = code _lstn; 
IF data = code _cls THEN 
GULPOLTE (dat, code Tus en) 


eo oe co |f 
Hou ue wl 


ELSE 
Outport (dat, codevelayy, 

END; 
END LOOP; 
established; 
PUT ("Connection terminated") ; NEW LINE; 
OUCPOLE (Gate, codeuers) | 
outport (ocwl reg,orglcew 7, --restore state 

ENDS LOchiEn;, 
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Pee NDE 


LISTING OF Z-100 MULTI-USE PROGRAMS 


package asmlib is 


fincezon byte te char Wbyce: in vbyte) return character; 
function byte to chr (byt: in byte) return character; 
--BYTE TO CHR DOES NOT CLEAR BIT SEVEN. 


procedure prntdata(byt : IN byte); 
PROCEDURE getch(char OUT By); 
PROCEDURE delete file(addr IN INTEGER) ; 
PROCEDURE create file(addr IN INTEGER; 
ESlt OUT INTEGER) ; 
PROCEDURE compute cksum(addr IN INTEGER; 
amt IN INTEGER; cksm OUTe ETE) ; 
PROCEDURE write file(addr : IN INTEGER; 
succ : OUT BOOLEAN) ; 
PROCEDURE close file(addr : IN INTEGER) ; 
PROCEDURE setDMA(addr IN INTEGER) ; 
PROCEDURE search frst(addr IN INTEGER; 
fnd OUT BOOLEAN) ; 
PROCEDURE search nxt(addr : IN INTEGER; 
fnd : OUT BOOLEAN) ; 
PROCEDURE send trns(addr,data_prt IN INTEGER; 
amt IN OUT INTEGER) ; 
PROCEDURE open file(addr : IN INTEGER; 
found OUT BOOLEAN) ; 
PROCEDURE read file(addr IN INTEGER; 
ESolte OUT INTEGER) ; 
FUNCTION current _dsk RETURN BYTE; 
FUNCTION capital(char : IN BYTE) RETURN BYTE; 
FUNCTION lower case(char : IN character) 
RETURN character; 
FUNCTION arr to strg(addr : IN INTEGER) RETURN string; 
FUNCTION conv byt(char : IN CHARACTER) RETURN BYTE; 


PROCEDURE get _strg(addr : IN INTEGER); 
PROCEDURE get_trns(addr,data_ prt : IN INTEGER; 

num : IN OUT INTEGER) ; 
PROCEDURE prnt_buf(addr : IN INTEGER) ; 
FUNCTION cksum(addr, bytcnt 
function no_echo return byte; 


IN INTEGER) RETURN BYTE; 


gay 


FUNCTION two bytes(addr : IN INTEGER) RETURN INTEGER; 
procedure clrscreen; 


end asmlib; 


~-PACKAGE NAME: ASMLIB.ASM — 

--AUTHOR: ALEC YASINSAC and Robert Hartman 
--DATE: JAN 86 

--SUBROUTINES CONTAINED: 1. POLLER 


Package assembly asmlib is 
jmp main --ASM PACKAGE MUST JUMP ANY CODE NOT INTENDED 
--AS INITIALIZATION CODE. 


stat equ . OedH 

cmd equ OefH 

dae equ OecH 

DSR equ 80H 

DIR equ 27H 

oid leg equ Zor 

TxRdy equ 1h 

RxRdy equ Zu 

rs232 delay equ 400 7833 usec/byte @ 9600 BAUD 


74 usec/loop 


function byte to char (byt: in byte) return character is 


pop bx 
pop ax 
push bx 

and al,7fh 
ret 


end bytes eonchar; 


function byte to chr (byt: in byte) return Chanactemauc 


pop bx 
pop ax 
push bx 
ret 


end byte to chr; 


procedure prntdata(byt : IN BYTE) is 


pop di 

pop ax 

push aa 

and dis 72H 

mov ah,O2h ; SET AH REG FOR CONSOLE DISPLAY 
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oat 21h ; SEND CHAR FMPORT TO THE CONSOLE 
ret 
end prntdata; 


procedure getch(char : OUT BYTE) is 


cer ax ;rtn 
POP di penar 
PUSH Gia: 
PUSH ax 
MOV SUL Ah eselsl 
MOV ah,6 ;--direct console I/O 
ENT Pays ais 
MOV [euly zul 
RET , 
end getch; 


PROCEDURE delete file(addr : IN INTEGER) is 


POP aX 

POP ax 
PUSH ax - 
MCV ah,13H 
INT Ai Mel 
RET 


END delete file; 


PROCEDURE create file(addr: IN INTEGER, rslt: OUT INTEGER) is 


POP ax 

POP Si 

POP ax 
PUSH ax 
PUSH Sl 
PUSH ax 
MOV ah, 16H 
yy PMID SI 
MOV ah,0O 
MOV (s1],ax 
RET 


END create file; 


PROCEDURE compute _cksum(addr : IN INTEGER, amt : IN INTEGER, 
cksm : OUT BYTE) is 


POP ax 
POP aa 
POP ox 
POP Si 
PUSH si 
PUSH ex 
PUSH ola. 


ong 


PUSH ax 

MOV ax Ul 
again3: MOV al, [si] 

INC si 

XOR dl,al 

LOOP again3 

MOV (aan) eer 

RE 


END compute_cksum; 


PROCEDURE write file(addr: IN INTEGER,succ: OUT BOOLEAN) 


POP . ax 
POP aa 
POP ene 
PUSH ax 
PUSH oli. 
PUSH ax 
MOV allay eS Fi 
ENE 21H 
CMP al,0O 
JZ good 
MOV al,0O 
MOV (dij,al 
RET 

good: MOV al,l 
MOV ([dijJ,al 
RET 


“ren 
ia blotel 
saddr 


aon 2 2p 6 2 62 62 22 62 ap a 6 6 6 6 6 6 6 6 Se 22 SP 2 6 op op op cp op Ce Ce See SD SP CO SR SP SD SP SP 6 6 om Oe SO Se @ SD GP SG GP a= Ga = a= a= a= 


PROCEDURE close file(addr : 


POP ax 

POP ax 
PUSH ax 
MOV ah,10H 
INT 2a 
RET 


IN INTEGER) 


PROCEDURE setDMA(addr : 


POP ax 

POP ax 
PUSH ax 
MOV ah, 1laH 
INT 24 
RET 


END setDMA; 


IN INTEGER) is 


PROCEDURE search frst (addr: 


IN INTEGER, 


32.0 


fnd: OUT BOOLEAN) is 


FOr ax 


POP slat 
POP ax 
PUSH ax 
PUSH ai 
PUSH ax 
MOV an lH 
JE Ig 21H 
CMP aly, O©fEM 
JE nocEnd 
MOV aek 
MOV [dij,al 
RET 

mMocitnda: MOV al,0O 

"MOV faa, ak 

RET 


PROCEDURE search nxt(addr: IN INTEGER, fnd: OUT BOOLEAN) is 


POP ax 
POP ai 
POP dx 
PUSH dx 
PUSH ai 
PUSH ax 
MOV ah, 12H 
INT Zu 
CMP al, OffH 
JE notfndl 
MOV aie ok 
MOV ficial 
RET 

neerndal ;MOV al,0O 
MOV fda}, al 
RET 


PROCEDURE send trns(addr, Data_prt : IN INTEGER, 
amt : IN OUT INTEGER) is 


wait time EQU 1000 
POP ax Bieieyel 
POP ial ramt 
FOr ax Biel sc yey ge 
POP si ;adar 
PUSH Si 
PUSH ax 
PUSH ai 
PUSH ax 
INC ax 
IN al,dax 


6) 74 Jk 


MOV 


JMP 


INC 


MOV 
send trnsL4: 
NOP 
LOOP 
send trnsD: 
MOV 
INC 
ENE 
OUT 
DEC 
DEC 
MOV 


al,DSR 
send_trnsD2 
al,DTR 


al,DSR 

send trnsD 
bx,wait_time 
eobye Slicclat) 


al,dax 
al,DSR 

Send Etrns lS 
bx 

send trnsD 
send trnsLl 


al7ax 
al,DSR 
send, rns 


al,dax 
al,DSR 
send trnsD 


al ax 

al UxRay, 
send trnsL3 
send trnsL2 
Fe Bly (eb: 


s=--too soon for DSR 


;--this was inserted due 
;--to occasional ermine 
;~~=problems 


;--transmission complete 


Gx lsze2 Clete, 


send trnsL4 


al Cbs 

ax 

dx 

dx,al 

dx 

dx 

cx,wait time 
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Seu ctlsild : 


IN al, ax 

AND al,DSR 

JZ send trnsD2 

LOOP send trnsDl 
send trnsD2:;: 

RET 


END send _trns; 


PROCEDURE open file(addr: IN INTEGER, found: OUT BOOLEAN) is 


POP ax 
POP cial 
POP dx 
PUSH dx 
PUSH aa 
PUSH ax 
MOV ah, OfH 
INT 2d 
CMP al,0O 
JZ open fileD 
MOV al,0O 
MOV foley, al 
RET 

open fileD: 
MOV ane 
MOV [dij],al 
RET 


END open file; 


ep ep @@ 2 22 a a 482 42 482 EP GP CED ED OED OED OED OED OED OED ED OE OE OE OE OE 4 ee ee ae es ae ee ee ee ee 6 6 6 6 6 6 6 6 62 62 6 6 622 62 6 62 2S = 2 ae a= 


PROCEDURE read file(addr: IN INTEGER, rslt: OUT INTEGER) is 


POP ax 

POP elas 

rer ax 
PUSH dx 
PUSH ai 
PUSH ax 

MOV ah,14H 
INT 20 
MOV ah, 0 
MOV (dij],ax 
RET 


END read file; 


FUNCTION current dsk RETURN BYTE is 


MOV ah,19H 
INT 21H 
RET 


Be current dsk; 
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FUNCTION capital(char : IN BYTE) RETURN BYTE is 


POP Jayne 

POP ax 
PUSH bx 
AND al,5fH 
RET 


END? capbeal: 


FUNCTION lower case(char: IN character) RETURN character is 


POP bx 

POP ax 
PUSH jo> <a 
ee al,20H 
RET 


END lower case; 


_m ep 2p Ge 22 2 62 6 62 6 6 42> 62 42> 6 22 22 22 2b 2 eo 2D 22 22 2 2m = = 2 = 2 22 2D 2D 2D 2D 2D SD 2 22 2D SF SOP SP 22 6 SP 6 6 SP owe oF oe 6 a= == == a= 


FUNCTION conv_byt(char : IN CHARACTER) RETURN BYTE is 


POP bx 
POP ax 
PUSH bx 
RET 


END conv_byt; 


Etat 46> @> 2D @= 22 2p 42> > 22 22 oo 42 22 22 == == = @= 4D 22 22 2D 2 oe 22 422 22 2 2D 22 2D 2D 2D 2D SD 2D 2D = 22 2D 2D = OD = 6 6 2 6 6 6 6 6 = 62 = a= 


PROCEDURE get _strg(addr : IN INTEGER) is 

;--addr points to a buffer whos first byte is its size 
;--—the second byte has byte count received from the kybd 
;--the third byte begins the input string 


POE ax 

POP ax 
PUSH ax 

MOV ah,0aH 
INT 20H 
Reo 


END get. strg; 


PROCEDURE get _trns(addr,Dprt : EIN 2NBEGEE: 
amt : IN OUD INTECER ae. 


POP ax neg 

POP si 7--num 

P@P ax }=-—datal pre 
POP dai ;--addr 
PUSH Ga: 

PUSH ax 

PUSH Sl 

PUSH ax 

MOV cx, [Si] 
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NC ax 

IN al,ax 

AND Bil DSi 

JZ get_prt_ dataD 

TNC dx 

INC ax 

MOV oil 4 DEUS 

OUT dx,al 

DEC dx 

DEC ax 

MOV anne DS 
get prt _dataL: 

IN al,dx 

AND al,RxRdy 

JNZ Geer pretudataLt 

IN aude x 

AND al,DSR 

JZ get prt _dataDl 

DEC ah 

JNZ Geemore datal, 

IMP Sermpiac, Gatabi 
get prt dataLl: 

DEC ax 

IN aie, Ax 7--7ecting data 

MOV [dij],al 

INC lat 

INC bx 

ENE ax 

MOV ante 5 

LOOP get prt dataL 
Beemprt dataDl: 

MOV sil lle 

ENC ax 

iie ax 

OUT dx,al 
feaeeprc dataD: 

MOV fist |} bx 

RET 


BAibegec trns; 


eeerearmemeqnmeanw ses ese awe Se aE ee ee eee eee ee ee ee ee ee eee SEP ee ee ee ee ae ee ea ae ae eee EP ae ae ee oe ae amwaw EE Ee aw EP am ee an 42 62 62 2 ae ae as a 


PROCEDURE prnt_buf(addr : IN INTEGER) is 


1210 Je ax 

POP sil 
PUSH ax 

MOV ele Si | 
MOV ch,0 
INC si 

Seine, DULL: 

MOV aie is. | 
INC si 


SZ) 


and adi, 7i£H 


mov ah,O2h 
bebe 2. N01 

LOOP Pence ouse 
RET 


END prnt_buf; 


FUNCTION cksum(addr, bytcnt : IN INTEGER) RETURN BYTE is 


POP ax 
POP cx 
POP Si 
PUSH ax 
MOV al,0O 
cksumL: MOV bl1,[{si] 
XOR al,bl 
INC si 
LOOP cksumL 
RET 
END cksum; 


function no_echo return byte is 
; PROCEDURE TO ALLOW A USER TO ENTER HIS PASSWORD 
, WITHOUT ECHO TO THE CONSOLE. 


pop ax 

mov ah,8& ; SET FOR NO ECHO FUNC INTERRUPT 
Lae 2 ah 

push dx 

ret 


end Ne.eeha; 


FUNCTION arr to strg(addr : IN INTEGER) REZURN sStuing@ie 


POP bx 
POP ax 
PUSH bx 
REL 


END arr RecOnScrd, 


FUNCTION two bytes(addr : IN INTEGER) RETURN INTEGER is 


POP Dx 

POP Si 
PUSH Dx 

MOV aoe Saul 
RET 


END two bytes; 
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procedure clrscreen is 


mov al, OZ 
mov ee ih 
gue 21h 
mov Cli 4 Sir 
ke 2 ih 
ret 


end clrscreen; 


main: -- ANY INITIALIZATION CODE WOULD FOLLOW THIS LABEL 
end asmlib; : 
package get_ip is 

procedure get addr(ipl, ip2, ip3, ip4: out integer) ; 
end get_ip; 


S=PACKAGE NAME: GET IP 
--SUBPROGRAMS CONTAINED: GET ADDR 
--AUTHOR: ALEC YASINSAC 

==DATE: DECEMBER 1985 


tease LO, strlib; 
package body get_ip is 


procedure get _addr(ipl, ip2, ip3, ip4: out integer) is 
SeeePUT: HOSTS.FIL 

eeeorPur: INTERNET PROTOCOL ADDRESS 

ame ooCRLPTION: 

facet CP PRINTS THE CONTENTS OF THE FILE 'HOSTS.FIL' AND 
SEO OOCLATES WITH IT A SELECTOR NUMBER. THE USER IS 

pee ROMPTED TO SELECT HIS DESTINATION BY KEYING IN A NUM- 
Saeeeokk.s GH ADDR THEN INTERPRETS THE ADDR AND RETURNS 
Seto, SELECTED ADDRESS TO THE CALLING ROUTINE. 


use I0, strlib; 

type iprec is array (1..40) of integer; 
mmacaadrl, inaddr2, inaddr3, inaddr4 : iprec; 
inname: string(21); 

selection, ctr: integer; 

infile, outfile, hosts, con: file; 

badinp: boolean; 

iio: string; 

but, K =: integer; 


begin -- begin procedure get addr 
Ser := 0; 
new line; 


put ("THE FOLLOWING IS THE LIST") ; 
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put(" OF DESTINATIONS AVAILABLE. "); 
new line; 
joe iG) TERMINATE PROCESS.") ; new_line; 
open(hosts,"hosts.fil",read_ only); 
while not end_of file(hosts) loop 
Cer 3 CUMs tal, 
get (hosts, inaddri(crny. 
get (hosts, inaddr2(ctr)); 
get (nosts, inaddrsrcer ye 
get (hosts, iInaddr4 (cero. 
inname ;:= " os 
kas= i; 
while ( not end_of line(hosts) and k < 21 ) loop 
read (hosts, inname(k) ); 


Kk 3] ira: 
end loop; 
skip line(hosts) ; 
new_line; 
DUS CCUL).. Duct" es 
put (inname) ; pic (” — 
Duc (inaddai (Cer) ): ei oo GL) 
Dut (Inacdeare2 (cer). Dut (este. 
DUE (CI Nnaddwa (eer) + put (ete 
DUE Canaddr4 (een); 
end loop; 
close (hosts); 
selection := ctr + 1; new line; 
loop —=— VAELDATE INPUL HERE 
put ("ENTER A NUMBER BETWEEN O AND "); 
PuelCcer): put("."); new _line; 
put ("ENTER ZERO TO TERMINATE PROCESS."); new line; 
badinp := false; new_line; 
ojo ner (le | Uae 
inp := get line(); 


-- PRESUME THERE WILL NOT BE MORE THAN 

-- 99 POSSIBLE REMOTE HOSTS] MUST Chia 

-- FOR THE POSSIBILITY OF = iWo Dpicitece 
forei-in.1..léngtenCinp)” Joep 


1£ not (inp(i) in '0°..°9 ieee 
badinp := true; 
exit; 
end if; 
end loop; --ENDS FOR LOOP; 
if not badinp then 
selection := str_to _int(inp); 
if selection <= ctr then 
exit; 
end if; 
end if; 
end loop; 
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if (selection = 0) then 
iO — Orel pe 3= O;.1p3 := 0; 
--BY CONVENTION, THE IP ADDRESS 
--INDICATES USER TERMINATION. 


ipa s— 0; 


RETURNED = ZERO 


else 
ipl := inaddri(selection) ; 
ip2 := inaddr2(selection) ; 
ip3 := inaddr3(selection) ; 
ip4 := inaddr4(selection) ; 
end if; <-- selection = 0 
Paanget addr; 
end get_ip; 


--this program is used to download a program into the 
==concentrator for the AEGIS LAN. 
mnceh bootasm, bit; 


PROCEDURE boot is 


use bootasm, bit; 
threshold constant integer := 10000; 
ocwl reg constant integer := (16#00f3#) ; 
ocwl constant byte := byte (16#aa#) ; 
code download constant byte := byte(16#c4#); 
code end constant byte := byte(16#FF#) ; 
dat constant integer := (16#ec#); 
stat constant integer := (16#ed#) ; 
cmd constant integer := (16#ef#) ; 
DTR constant byte := byte(16#27#) ; 
RxRdy constant integer := 1; 
TxRdy constant integer := 0; 
TYPE array8 is ARRAY(1..8) of BYTE; 
[PE array3 VSeARRAY (1b. . 30Ot SEYTE > 
TYPE array2 is ARRAY(1..2) of BYTE; 
TYPE array4 is ARRAY(1..4) of BYTE; 
buf Spray (leo l2) Or bDYce; 
TYPE LCDRREC 1s RECORD 

rv BY LE ; 

name array8; 

ext Ana. ; 

extnt PNREGER ; 

Rsize INTEGER; 

Fsize array4; 

date array2; 

time si@iare VO F 

resrvd array8; 

rec BORG, 

rndm array4; 

END RECORD; 
FCB fcb REC; 
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data ; Dyieey, 


ptr >: integer; 
org ocwl ; byte; 
loopent ; INTEGER 
Found : BOOLEAN; 
rslt >; INEEGER 
linecnt : INTEGER; 
BEGIN 


Inpore (dav, data; 
inport(ocwl reg,org_ocwl); 
outport(ocwl reg,ocwl) ; 
OuUEDOLe (ema, DIR): 
outport(dat,code download) ; 
ITGGpenE =u, ; 
PUT ("Welcome to the Naval Postgraduate School's "); 
PUT ("Computer Science Lab"); 
NEW LINE; 
LOOP 
inport(stat,data); 
IF tstbit(INTEGER(data) ,RxRdy) THEN 
INDOmei Gat, aaca)s 
EXIT WHEN data = code download; 


RELURN ; 

END IF; 

LOopCnewe:= lOopCche. a, 

IF loopcnt = threshold THEN 

RETURN ; 

END (rE; 
END LOOP; 
PUT("Please standby ..."); 
NEW_ LINE; 
PCB.aEVa: = BYTE (C(O) 
FCB.name(1) := BYTE(16#43#) ; Oe 
FCB.name(2) := BYTE(16#4F#) ; --0 
FCB.name(3) := BYTE(16#4E#); --N 
FCB.name(4) := BYTE(16#54#) ; --T 
FCB.name(5) := BYTE(16#52;) ; --R 
FCB.name(6) := BYTE(16#4F#) ; —— 
FCB.name(7) := BYTE(16#4C#); --L 
FCB.name(8) := BYTE(16#20#) ; ie 
FCB.ext(1) = BYTE (16#50#) ; =e 
FCB exe (2) = BYTE GI6¢527 1; --R 
FCB Hex (3) = BYTE (16#47#) ; ——G 


open file(FCB'address, found) ; 
IF £ound] THE 


FCBseCxXxenes.=.0; 
FCBsree is —~py TE); 
FCB.Rsize := 512; 
setDMA(buf'ADDRESS) ; 
linecene  :— 0; 
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LOOP 
read file(FCB'ADDRESS,rslt) ; 
IF rslt = 0 OR rslt = 3 THEN 
send(buf'ADDRESS) ; 
PU x) 
linecnt := linecnt + 1; 
IF linecnt = 80 THEN 
NEW LINE; 
END IF; 
EXIT WHEN rslt = 3; 
ELSE 
close file(FCB'address) ; 
EXIT; 
END IF; 
END LOOP; 
NEW LINE; 
FOR i IN 1..4 LOOP 
EONS 
inport(stat,data) ; 
EXIT WHEN tstbit(INTEGER(data) ,TxRdy) ; 
END LOOP; 
outport(dat,code end); 
END LOOP; | 
Eu Dewnboad to Concentrator complete"); NEW LINE; 
ELSE 
Pum "CONTROL. PRG' not found on Current drime") ; 
NEW LINE; 
END IF; 
END boot; 


Package assembly bootasm is 
jmp main ------ ASM PACKAGE MUST JUMP ANY CODE NOT 
se Soe cat iam oe INTENDED AS INITIALIZATION CODE. 


stat equ OedH 
cmd equ OefH 
aac equ OecH 
TxRdy equ iugt 
RxXRday equ 2H 


PROCEDURE close file(addr : IN INTEGER) is 


POP ax 

POP ax 
PUSH ax 

MOV ah, 10H 
rN PAVel 
RET 


PROCEDURE setDMA(addr : IN INTEGER) is 


ga 1 


POP ax 


POP ax 
PUSH ax 
MOV ah, 1aH 
INT Zot 
RET 

END setDMA; 


PROCEDURE open file(addr: IN INTEGER, found: OUT BOOLEAN) is 


Por ax 
POL di 
POE ax 
PUSH ax 
PUSH lal 
PUSH ax 
MOV ah, OfH 
INT 220i 
CMP al 0 
JZ open fileD 
MOV al,0O 
MOV fel )yeul 
REL 

open fileD: 
MOV al;i 
MOV eal seul 
Re 


END open, file; 


PROCEDURE read file(addr: IN INTEGER, rslt: OUT INTEGER) is 


POP ax 

POP celal 

POP ax 
PUSH dx 
PUSH aa. 
PUSH ax 

MOV ah,14H 
INT 22H 
MOV ah,0O 
MOV [ dispeax 
REL 


END read file; 


PROCEDURE send(addr : IN INTEGER) is 


POP ax 

POP si 

PUSH ax 

MOV Ox 52 
sendL: IN ai, Stac 

AND al ,TxRdy 

JZ sendL 
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MOV al, [si] 


OUT dat,al 
INC Si 
LOOP sendL 
RET 
END send; 
maaan : -- ANY INITIALIZATION CODE WOULD FOLLOW THIS LABEL 


end bootasm; 
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APPENDIX K 


GLOSSARY 


1. Communication 
Communication is viewed as inter-process 
communication, even if it is to and from a. terminaloen 
DEeIncer. 
2. Datagram 
A datagram is a group of characters or bytes 
entailing a message combined with the source and 
destination address of the message. Datagram may also 
refer toa type of network service in which each niesseoe is 
handled as an isolated entity. 
3. FTP, IP, TCP, TELNET 
Each of these terms represent a documented network 
protocol. ‘Telecommunications Control Protocol', ‘Internet 
Protocol', ‘File Transfer Protocol', and 'TELNET Protocols 
each provide at least one of the ISO standard layers of 
protocol as described by Tannebaum [Ref. 2]. These 
protocols are specified in (Ref. 3]. 
4. Hosts 
Hosts are computers connected to a network and are 
the originators and receivers of information as far as the 


networks are concerned. 
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5. LAN 
LAN is an acronym for Local Area Network and is 
used to represent any network operating exclusively within 
a low radius region. 
6. MULTIBUS 
The AEGIS multi-user system is built with a 
Multibus frame which allows multiple SBC's to communicate 
directly with common.memory within the frame. 
7. Networks 
Networks can be either local networks like ethernet 
or large networks like ARPANET. 
See > 
This 1s an acronym for Naval Postgraduate School, 
Monterey, California. 
oe OCT CE 
An octet is a grouping of eight data bits. 
10. Packets 
Packets is a term used to mean a set of data for 
one transaction between a host and its network. A packet 
can mean just a few bytes to several thousand bytes. They 
are transfered over a network as a group unless 
fragmentation occurs which we will discuss later. 
mi. Ports 
Ports are channels through which processes 


communicate. A process may have many ports or just one 
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(le. a non-Sharable asset like a printer has only one 
DOme)-. 
12. Process 

Processes are active elements in a host computer 

(le, a program in execution). 
ES.) ole 

Simple Mail Transfer Protocol (SMTP) is used to 

pass mail across the-network (rfc821) 
14. Single Board Computer (SBC) 

A single board computer is a configuration of VLSI 
circuitry on one computer board capable of performing the 
functions of a computer. When this term is used ines 
thesis it is usually referring to the Intel 86/12A SBC 
which is the driving force of the AEGIS multi-user system. 

1527) TAG 

TAC (terminal access controller) is a way of 
accessing a network by connecting a hard-wire or dial-up 
phone connection to the controller for access to a network 
Without going through a host computer. The TAC's are 
positioned around the country to allow fairly short phone 
connections to the world wide network. 

16. USART 

A USART is a microprocessor that provides 

communication interface between computers or between a 


computer and a peripheral device. 
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I Fie Zia 0'0 
iitsca.s the mepeecmreic model name for the 
microcomputers used in this network configuration. The 


vendor is Zenith Data Systems. 
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